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The legend of Bruce Lee lives on іп the imagination and memory of millions of 
fans throughout the world. And now, through the awesome power of the 
computer, you too can relive the power of Bruce Lee. 

Bruce Lee" combines state-of-the-art technology with the 
masterful moves of the martial arts. From devastatingly lethal 
kicks and staccato thrusts to the unrestrained fury of every reflex, 
™_ the Bruce Lee game explodes with action. 

All the force and controlled discipline of Bruce Lee is at your 
command. You'll see it in his smooth and graceful leaps. You'll feel it in 
your heart as you prepare to do battle with his ominous adversaries. Take 

on the Green Yamo and Ninja in hand to hand combat as you fight your 
way through 20 mysterious oriental settings. Unexpected dangers loom as 
you make your way past exploding bushes and the fire wizard in your quest for 
the ultimate treasure. 

Bruce Lee. It not only lives up to the expectations of the best 
programmers and players around. It lets you live out the life of a legend. 
Even in your spare time. 

Available now for Atari and Commodore 64 Computers, coming 
soon for the Apple II series and IBM PC and PC/JR. 

Contact your local dealer or send check or money order with 
$3.00 postage and handling, California residents add 6.5% sales 
tax to Datasoft. 

Suggested retail $34.95. 


Datasoft® is a registered trademark of Datasoft, Inc? 
ТМ Designates a trademark of Linda Lee. 
© 1983 Bruce Lee. All rights reserved. 
Licensed by Ziv International, Inc. 
© 1983 Datasoft Inc. 


Datasoft, Inc. 19808 Nordhoff Place, Chatsworth, CA 91311 


It was as peaceful a day as New York ever gets, when suddenly the sky went dark and 

a monstrous droning noise filled the air. Hordes of grotesque aliens were swooping down from 
all sides, biting into the Big Apple as if they hadn't eaten for days. They were laying 6005, 100. 
Horrible slimy things that got down into the subway tunnels and began clawing their way up. 

If anyone was going to save the city, it would have to be me. I leapt into my rocket and 

began blasting away. | thought I stood a fighting chance, but fuel's running low... another wave 
of invaders on the horizon... signing off... 
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THE EDITOR’S 


A Word of Thanks to you readers 
and authors ... with this issue 
the GAZETTE is 12 issues old, and 
is one of the most phenomenal 
growth stories in the consumer 
publications industry. We've 
achieved a paid circulation in 
excess of 300,000, making the 
GAZETTE one of the half-dozen 
largest magazines in the entire 
industry. Our parent publication 
COMPUTE! was the fastest grow- 
ing computer magazine in the 
Audit Bureau of Circulation 
numbers comparing the six 
months ending December 1982 
with the six months ending De- 
cember 1983. The next closest 
competitor grew by 106 percent 
compared with COMPUTE/'s 247 + 
percent. Looks like next year, 
we'll have two of our own publi- 
cations competing with each 
other. Now that's a nice problem 
to have. 

Our newly launched 
GAZETTE DISK is doing nicely too, 
thanks to you; we appreciate 
your continued support. You'll 
notice the disk is still unpro- 
tected. While we've touched on 
this issue in recent editorials, 
this time we're starting your 
additional feedback. The letter 
that follows is representative of 
many of the letters we've re- 
ceived on the topic of protection: 


Dear Mr. Lock: 


I read your April 1984 editorial with 
great interest. As a retailer in software, I 
believe the presence of copy-protected 
software directly effects the saleability 
of my stock. Customers tend to shy 
away from heavily protected software. 
They feel (and rightly so) that once they 
ay their money down, they should be 
able to make backup copies should 
disaster strike their original. (Or more 
commonly, make and use backups and 
eep their original in a safe place.) Vari- 
ous service schemes by software makers 
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who have backup-restricted products 
don't appease the customers much. If a 
disk crashes, why should they have to 
wait a few weeks for a new copy to 
arrive in the mail? 

In trying to answer the question of 
whether or not to protect, we should 
first address the question of why people 
steal software. Here, we begin to deal 
with motives and human nature. For 
the software pirate, the motive is greed. 
A low overhead means high profits. For 
this kind of person, there is no viable 
software-protect remedy. No matter 
how sophisticated the software-protect 
features are, ways can be found to defeat 
them. Also, development costs of these 
features are tacked on to the cost of the 
software, thereby raising customer 
prices. The higher the price of software, 
the more likely people will find a way to 
pirate. The disparity between true value 
and customer cost gives the pirate room 
to operate. Carried to the extreme, one 
can think that the development cost of 
software-protect features exceeds the 
cost of the product it's protecting. Would 
you be willing to pay the premium on a 
homeowner's insurance policy if it 
exceeded the cost of the house? 

Another motivation for software 
piracy, less malign, is software copied 
and given in the spirit of friendship. A 
user group operates to raise the com- 
puter literacy of its members. One of 
the finer things in life is our ability to 
learn, and learning about a subject 
we're interested in satisfies a need. On 
the other hand, teaching what we know 
gives us a better feeling about ourselves. 
Successful teachers can tell you firsthand 
how great the ego feels after a class. 
When teachers and learners combine as 
they do in a user group, it's magic. 
When the teacher gives something to 
the learner that doesn't cost anything, 
as in copied software, this magic reaches 
higher plateaus. Sharing can never be 
overrated when it comes to building 
friendships. 

We all like extending favors that 
cost us nothing. However, when others 
pay the cost, the favor becomes less 
than altruistic. Here again, with the 
abundant availability of backup 
protection-override software, high cost 
software with backup protection is 
readily defeated. Nothing is gained by 
the software seller. I feel that by and 


large, people are basically good. Any 
businessman has to have this attitude if 
he is to succeed. In areas of commerce, 
distrust only slows things up and ends 
in costing both parties much in the long 
run. The only thing needed is a little 
caution, not total distrust. 

In matters concerning professional 
software pirates, there is legal recourse. 
Though irritating, I think their impact is 
small. By giving them more motivation 
(high software costs) to steal, software 
houses who use copy protection only 
hurt themselves. I also feel that software 
pirated for reasons of friendship would 
be less prevalent at lower costs. People 
would be more likely to expand their 
libraries with money out of their own 
pockets. Also, a little public education 
concerning copyright laws would go a 
long way. 

In closing, I feel that you would do 
better serving the public and yourselves 
by offering quality products at the lowest 
possible cost. You've indicated that 
you're opposed to excessive software 
copy protection. The fact that you allow 
a software company that sells a backup 
override program (Microware) to adver- 
tise in your magazine seems to support 
this. If you are soliciting votes, then I 
vote that you keep your software inex- 
pensive and backup unlimited. 

By the way, keep up your high 
magazine standards. It must do your 
egos good knowing you're doing such a 
great teaching job. 


Sincerely yours, 
Ron Bosse 


Until next issue, enjoy your 
GAZETTE. 


pet 
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WordPro 3 Plus /64 


The #1 Selling Word Processor for the Commodore 647” 


WordPro 3 Plus™/64 and SpellRight Plus™ provide a total word 
processing solution for the Commodore 64" which gives you: 


Sophisticated Word Processing 

Built-in Mail Merging for Form Letters 

Math Functions for Column Totals 

Fast and Complete Spell Checking via SpellRight Plus 
A Super Value (two programs) for Only $99.95! 


WordPro and SpellRight are both specifically designed for the 
novice user with no computer or word processing experience 
whatsoever. And with over 40,000 WordPro versions sold, you 
can be sure that WordPro is a very sophisticated word 
processor loaded with powerful features including: Transfer, 
Insert, Delete, and Rearrange Text, Auto Page Numbering, Math 
Functions, Headers, Footers, Global Search and Replace, the 
Ability to Create Multiple Personalized Letters and Documents, 
and much more. WordPro can create documents of virtually 
any length and will print up to 165 columns wide. You get all of 
this PLUS fast and complete spell checking using SpellRight 
Plus! 


+ + + 4 x 


WordPro 3 Plus™/64 and SpellRight Plus™ are trademarks of Professional Software Inc. 
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SpellRight Plus locates and highlights misspelled words and 
then allows you to quickly correct the misspellings — 
improving the quality of your letters and reports. 

And, best of all, WordPro and SpellRight's powerful arsenal 
of features can be put to use almost immediately — by even 
the novice user. So whether you're a student, professional 
writer, in business, education or a hobbyist, you'll quickly 
become a WordPro Pro! 

Both WordPro and SpellRight Plus are also available separately 
at popular computer outlets nationwide. 


Invest in the best . . .WordPro Plus. In a class by itself. 


Professional Software Inc. 


51 Fremont Street (617) 444-5224 
Needham, MA 02194 Telex: 951579 


Dealer and Distributor inquiries are invited. 


The WordPro Plus Series was designed and written by Steve Punter of Pro-Micro Software Ltd. 
SpellRight Plus was designed and written by Dwight Huff and Joe Spatafora of SpellMaster Systems, Inc. 
Some printers may not support certain WordPro 3 Plus functions and/or require an interface. Please check with your dealer. 


Commodore 64" is a trademark of Commodore Electronics Ltd. 
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EDITORS AND READERS 


Do you have a question or a problem? Have 
you discovered something that could help other 
VIC-20 and Commodore 64 users? Do you have 
a comment about something you've read in 
COMPUTE's GAZETTE? We want to hear from you. 
Write to Gazette Feedback, COMPUTE's GAZETTE, 
P.O. Box 5406, Greensboro, NC 27403. 


Mysterious Numbers 

I'm curious about lines like: SYS 12*4096 + 12*256 

and BB = PEEK(44) + 27 in your magazine. Why 

don't you just write: SYS 52224 or BB = 35? 

Wouldn't this be quicker than having the com- 

puter perform the mathematical functions first? 
Joel A. Brondes 


In the first example, you're right. It would have been 
easier (and quicker) to simply write SYS 52224. The 
reason the line was written with the formula was simply 
programmer preference. He might have been thinking 
in terms of blocks (4096) and pages (256) of memory, 
and this computation method was easier for him than 
computing the actual SYS address. In hexadecimal the 
number translates to 68 СС00. 

In the second example, the BB = 35 statement 
might not work. In this case, memory location 44 indi- 
cates the start of BASIC program memory. But the 
start of BASIC can be changed by POKEing values into 
byte 44. In this case, if the start of BASIC were changed, 
the value in BB would also change. 


PEEKing Joysticks On The 64 


Iama VIC-20 owner and am considering switching 
to the Commodore 64. I went to a store to compare 
the two, and found that the 64 had two joystick 
control ports. Can two joysticks be plugged in, or 
just one and a light pen? If two can be plugged in, 
does a program read both ports or just port 1? If it 
reads them both, then two players can play at the 
same time, but how does this work? 

Todd Wolfe 


Yes, joysticks can be used in both ports. You can check 
the joystick positions by PEEKing two memory loca- 
tions. Each time you push the joystick in one direction 
or press the fire button, various values are placed in 
these locations. The values indicate which operation 
was performed with the joystick, paddles, or light pen. 
The location to PEEK for port 2 is 56320, and port 1 is 
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56321. Plug a couple of joysticks into ports 1 and 2 and 
run this short BASIC program. While the program is 
running, push the joystick and firebutton and watch 
the values in these memory locations change. 
10 А-56320:В-56321 
20 PRINTA;PEEK(A),B;PEEK(B) :GOTO20 

Each operation performed on the joystick sets a bit 
(a byte is composed of eight bits) in the memory locations. 
The normal bit values are one, but when joystick activity 
is detected, the bit is set to zero. The bits are arranged 
as follows: 


Bits Operation 

3-0 joystick direction 

3-2 paddle fire buttons 

4 joystick fire button 

7-6 read paddles on port 1 or 2 

Reading individual bits is done by PEEKing with an 

AND. To PEEK bit 0, you would AND with 1; to check 

bit 1, AND with 2; the number used for the AND doubles 

with each succeeding bit, up to a value of 128 for bit 7 
Here's another short demo program. Run this 

program with a joystick plugged into port 2. Run ita 

few times, changing the value of B to 1,2,4,8, and 16 to 

see how the individual bits are detected. When you 

push the joystick, the corresponding bit will change to a 

zero, and the zero will be displayed on the screen. 

10 A-56320:B-1 

20 PRINTPEEK(A)ANDB:GOTO20 

As for a program being able to read both joysticks at the 

same time, it's up to the programmer. There are many 

two-player games available. Some game programs might 

use both the joystick ports plus the keyboard. It depends 

on the individual application. ; 


Double-Sided Floppies 


I have a tip for your readers and a question for 
you. Some programmers like to cut a new write 
notch on their single-sided diskettes so they can 
use the reverse side. However, there's no need to 
spend your money on a special tool to cut the 
notches. As long as you measure accurately, a 
half-circle cut with an ordinary paper punch will 
suffice. 

Now my question: Since I have been using 
the backs of my floppy disks for additional storage, 
I have come across a most annoying problem. 

About ten percent will fail to format correctly, 
and will give me the message: 


These are the hands of a 
master TYPIST ............. 


MasterType—the best-selling program that 
turns learning into child's play. 

Given the choice of learning a skill or playing a 
game, most kids go for the game. 

So how has Masterlype" gotten so many 
young kids to sit still long enough to learn to type? 

By being fun. By bringing the fast action of 
video games to each of Masterlype's lesson 
program segments. 

Kids get so caught up in zapping spaceships, 
they hardly realize they've mastered the keyboard. 

Warning: Parents like it, too. And may find 
themselves unwittingly becoming expert typists 
before they know it. 
Disks: Apple; Atari; Commodore 64^ $39.95 
IBM-PC $49.95 
Cartridges: Atari? Commodore 64° $39.95 


Try the other programs in the Scarborough 
System—Songwriter; PictureWriter; Phi Beta 
Filer; PatternMaker” and Runfor the Money: All 
Scarborough software utilizes your computer's 
capabilities to the fullest. And perhaps more 
importantly, all are easy to use. 


The Scarborough System. 


__ © Scarborough Systems, Inc., 25 N. Broadway, Tarrytown, New York 10591 
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Apple, IBM and Atari are registered trademarks of Apple Computer, Inc., International 
Business Machines Corp. and Atari, Inc. respectively Commodore 64 is a trademark of 
Commodore Electronics Limited. 


21, READ ERROR, 75, 01 


This never happens when formatting the front 
side of the disk. What is the problem? 

Philip A. Grimes 
Thanks for the tip. However, here's a strong caution 
which is also an answer to your formatting problem. 

When most diskettes are first manufactured, they 
are intended to be double-sided. The magnetic coating 
on both sides is subjected to rigorous tests. If both sides 
pass the certification tests, it is sold as a double-sided 
diskette. If one side fails, but the other tests OK, it is 
sold as a single-sided disk. When you use the reverse 
side of a single-sided floppy, it may have already been 
tested and proven to be faulty—thus a probable cause of 
your formatting problem. 

Another strong point to consider when using the 
reverse side: dust contamination. Manufacturers put a 
special lining inside the diskette jackets. The lining acts 
like a broom, sweeping the dust off the magnetic surface. 
Because the diskette always spins in the same direction, 
the dust has a tendency to be swept into one corner of 
the jacket. When you turn the diskette over and use the 
reverse side, the diskette spins in the opposite direction. 
This can spin the dust out of the corner, and back onto 
the delicate magnetic coating, possibly causing irrepar- 
able damage. 

Using commercially available double-sided disks 
doesn't necessarily solve the problem. Double-sided 
diskettes are meant to be used on double-sided disk 
drives. These drives have two read/write heads, one on 
the top and one on the bottom. This means that the 
diskettes don't have to be turned over; they always spin 
in just one direction. When you use double-sided floppies 
in the 1541 and 1540, you still have to reverse the disk- 
ette to reach the second side. So even though the diskette 
was tested safe on both sides, you still face the dust 
contamination problem. 


GAZETTE Double-Talk? 


I'm an avid reader of your magazine, but your 
March issue leaves me puzzled. 

In the Feedback column you reiterate advice 
to avoid using the SAVE @0: (SAVE with replace) 
command with the 1541 disk drives. Yet, you 
feature a utility on page 120 which is based on 
just that function. 

What gives? As they say, it appears that 
you're talking out of both sides of your mouth. 

John Premack 


An interesting point. We still maintain that you should 
avoid the SAVE with replace command to be on the safe 
side. 

However, in our judgment, the article and program 
were worth publication on their own merit. The author 
chose to use this command in his program. It is possible 
to remove the " (0: (SAVE-with-replace) from the 
program, but you would have to change the program 
name each time. 
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Cleaning Disk Drive Heads 


I recently purchased a head cleaning kit for my 
Commodore 1541 disk drive. The instructions 
included with the cleaning kit state that I must 
insert the cleaning disk into the drive and then 
start the drive to engage the head for 30 to 60 sec- 
onds. Does the head engage when you first turn 
on the drive (the red light turns on for about 5 
seconds). How do I engage the heads so that the 
disk drive is properly cleaned? 

Jerry A. Coy 


Don't depend on the brief spin when the drive is first 
turned on to do the cleaning. After inserting the cleaning 
diskette, уои can make the drive spin any number of 
different ways. 

Try loading the directory (LOAD ^$",8), initial- 
izing the diskette (OPEN 15,8,15,"1"), or using the 
format command (OPEN 15,8,15:РКІМТ%15,4МО: 
ТЕХТ,Т1”:СІ,О5Е 15). Any command that forces the 
drive to either read or write can be used when cleaning. 


Colliding Sprites 

Iam trying to write a machine language game 
using sprites and am having trouble with the col- 
lision register (SDOTE). I've found out that if I 
read the register a second time in machine lan- 
guage, all I get is a zero, not any current collisions 
as I do when I PEEK the register in BASIC. 

It is a great waste of time to return to BASIC 
just to PEEK the collision register. Certainly there 
must be a way to get the computer to reset this 
register in machine language. How do I overcome 
this? 

Sean D. Wagle 


The problem you describe occurs because a small amount 
of time is required for the collision registers to reset 
after they are read. Any time you read these registers, 
whether from BASIC or machine language, they are 
automatically set to zero afterwards. Since it takes a 
brief moment for these registers to reset themselves, 
reading them over and over at machine language speeds 
will produce some zero readings even though collisions 
are still occuring. The best way to deal with this problem 
is to add a delay so that the collision registers are read 
at longer time intervals. Store the results of the read 
in a separate storage location, then use this storage 
location to check for either sprite-to-sprite or sprite-to- 
background collisions. 

The collision registers are two memory locations 
$DO1E (decimal 53278) and $DO1F (decimal 53279). 
The eight sprites (0—7) register collisions by setting the 
corresponding bits (0—7) in each of these registers. The 
first location (5 /01Е) signals collisions between sprites 
by setting to 1 the appropriate bit for each sprite involved 
in the collision. Since sprite-to-sprite collisions must 
always involve at least two sprites, two or more bits in 
this register turn on for any contact between sprites. 


INNER 


COMMODORE 64" - 


Whether you're a be- 
ginner or an experi- 
enced user, Reston can 
expand the world of 
the Commodore 64™ 
for you. 
COMMODORE 64™ 
COLOR GRAPHICS: A 
BEGINNER'S GUIDE, 
by Shaffer and Shaffer, explains how the 
Commodore 64 operates and teaches 
you how to read, understand and write 
simple basic programs for generating 
color graphics. Each topic includes a 
BASIC programs, line-by-line explana- 
tions, and illustrations of what the screen 
should look like. 


COMMODORE 64™ DATA FILES, A 
BASIC TUTORIAL, by David Miller, is a 
step-by-step tutorial which takes the 


mystery and misery out 

of creating files. You'll 

learn how to manipu- 

late and create your 

own files for home, 

hobby, business, educa- 

tional, and investment 

purposes. 

ADDING POWER TO 

YOUR COMMODORE 64", by Steve 
Cates and Vahe Guzelimian, uses a first- 
of-its-kind utility approach to help you 
master more of the advanced computing 
power of your machine than you ever 
though possible. You'll get an inside look 
at the workings and advanced features, 
all in an easy-to-understand style. 


MASTER MEMORY MAP: COMMO- 
DORE 64", by Pavelko and Kelly, is a 
clearly written, friendly guide to all the 


Commodore 64% 

memory locations — 

places inside the com- 

puter which act in 

special ways. You'll 

learn lots of special 

uses, including how to 

make music or create 

special characters for 

video games. 

You can find these guided tours of the 
Commodore 64" at your local bookstore 
or computer store. Or order directly from 
Reston at (800) 336-0338. 

Reston Computer Group 

A Prentice-Hall Company 

11480 Sunset Hills Road 

Reston, Virginia 22090 


COMMODORE 64 is a trademark of 
Commodore Electronics 


The second location (5 /01Е) signals contact be- 
tween a sprite and a nonzero portion of the background. 
Like the first register, bits are turned on for each sprite 
which “touches” a nonzero part of the background. 

Collisions occur only when solid portions of the 
sprite occupy the same spot on the screen as another 
solid portion of a sprite or background. 


Renaming Disks 

I have many programs now collected on disk. I 
find that my disk names and numbering system 
have become a Mulligan Stew. I would like to 
retitle and number them in a proper and orderly 
manner. 

Do you know of a way to retitle and number 
them so that the contents of the programs are not 
harmed in any way? 

James R. Maloney 


While it is simple to rename a program on disk, it is 
more complicated to rename the actual disk. If done 
incorrectly, it may ruin the disk directory. If you want 
to rename a disk, it is best to format a new disk with the 
desired name and ID number, then copy all the programs 
from the old disk to the new. 

Changing the names of the programs on your 


diskettes is easy, however, and can be done with one 
command. Here's the format: 


OPEN 15,8,15: PRINT #15,’R0:newname= oldname"': 
CLOSE 15 


where R0: means rename, newname is tlie new name 
you wish to give to the program, and oldname is the 
current name. 

If you wish to rename more than one program, 
enter and RUN this program (for both the VIC and 64). 


10 CLOSE15:0PEN15,8,15 

20 PRINT"{CLR}{DOWN} RENAMING PROGRAMS" 

30 PRINT"ENTER OLD NAME: ":INPUTOS 

40 PRINT"ENTER NEW NAME: ": 

50 PRINT#15,"RO:";NS;" 

69 PRINT"{DOWN} PRESS {RVS}F1 {OFF} TO REP 
EAT" 

70 GETAS:1FAS=""THEN79 

80 IFAS<>"{F1}"THENEND 

98 GOTO20 


Useful POKEs 


Here is a data table showing some useful POKEs. 
We use it here at our school, 100 Mile Junior Sec- 
ondary, British Columbia. I am sure there are 
others who could benefit from this compilation. 


Dave Schneider 


LEARN 


MACHINE LANGUAGE 


* Write Fast-action Arcade-style graphics 
* Fully use the Music synthesizer 

* Completely understand the Computer 

* Develop your skills inventory 


Learn with the Tutorial that comes complete with 
a Full set of professional quality development tools. 


DEVELOP-64 4.0 


IS NOW 
| 


FAST!!! 


Assembles 2000 lines of code in under 15 seconds! 
* Superfast е Macros % 2600 Lines of code in memory 
Expandable by disk or tape file е Assemble direct to disk or 
tape or memory * Powerful Co-resident Full-screen editor, 
debugger and decoder е Decoder disassembles programs оп 
disk or tape or in memory * Built-in disk wedge * Program 
trace, Single step, Execute ° Set 10 breakpoints and/or 
Gopoints * Full-screen memory display and modify 
PLUS the Machine Language Programmer's Bible: 
“Inside the Commodore 64” 


569°» der 


Plus $3.00 postage and handling. 
(Minn residents add 696) 
P.O. Box 7426 Minneapolis, MN 55407 
es == Call Toll-Free 1-800-328-0145 
TE for in Minnesota call: (612) 871-4505 
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Function VIC 64 
“Cold” Start SYS 64802 SYS 64738 
Uppercase/Graphics POKE 36869,240 POKE 53272,21 
Lowercase/Uppercase POKE36869,242 РОКЕ 53272,23 
Disable STOP POKE808,127: POKE 788,52: 
POKE 788,194 POKE 808,239 
Enable STOP POKE 808,112: POKE 788,49: 
POKE 788,191 POKE 808,237 
Disable STOP, POKE 808,100: POKE 808,225 or 
RESTORE, and LIST POKE 802,0: POKE 808,234 
POKE 803,0: 
POKE 818,165 
Enable STOP, POKE 808,112: POKE 808,237 
RESTORE, and LIST POKE 802,243: 
POKE 803,243: 
POKE 818,133 
Disable RESTORE POKE 792,90 POKE 793,203 
DisableSAVE POKE818,73 POKE 819,245: 
POKE 818,32 
Enable SAVE POKE818,113 Е РОКЕ 818,245: 
РОКЕ 818,237 
Disable Repeat POKE 650,0 | РОКЕ 650,0 
Enable Repeat POKE 650,128 POKE 650,128 
Disable LIST POKE 775,200 POKE 775,200 
Enable LIST POKE 775,199 POKE 775,167 
Clear Keyboard Buffer POKE 198,0 POKE 198,0 
Disable Keyboard POKE 649,0 POKE 649,0 
Enable Keyboard POKE 649,10 POKE 649,10 
Restore Keyboard POKE 650,0 POKE 649,10: 
POKE 808,237 


Thank you. We're sure our readers will find the table 
helpful. When using the POKEs to disable LIST, 
note that RUN/STOP-RESTORE will not reset the 
computer. @ 


Handle your home 
budget, stock portfolio, 
loans and mortgages 
with Calc Result 


Calc Result Easy is a simple-to-use spread- 
sheet program for the Commodore 64. It 
includes 254 lines x 64 columns, built-in 
graphics, and flexible printout formats. 
Plug-in cartridge... just plug it in and its 
ready. Perfect for cash flow analysis, perso- 
nal net worth, IRA analysis, travel expenses, 
credit card expenditures, gas and elec- 
tricity bills, etc. 


Calc Result Easy $49.95 


Calc Result Advanced gives you 32 pages of 
interrelated information. The three-dimen- 
sional feature allows you to consolidate 
calculations in summary format. Calc Re- 
sult Advanced comes on plug-in cartridge 
and disk. Disk drive required. 


А complete database 
for the home 


Addresses, telephone numbers, appoint- 
ments, birthdays, or records-whatever you 
want to remember-put it on DIARY, an 
electronic notebook for home use. DIARY 
comes on a plug-in cartridge. Its easy to 
use and easy to learn, giving you the 
flexibility to design a personal calendar 

or address book. 
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Diary $29.95 
Turn statistical 
information into 
graphic format 


GRAF 64 converts mathematical functions 
into graphical analysis on the Commodore 
64. Àn ideal program for studying math. 
Define a function, set the limits of an axis, 
plot a graph and display the extreme 
points, intersection values, etc. 


Graf 64 $29.95 


Handic —A Complete Line 
of Products to Keep Your 
Commodore 64 Busy 


— Everyday! 


Develop your bridge 
skills 


Whether you're an experienced bridge 
player or a beginner, polish your skills or 
learn the game with BRIDGE 64. Play 
North-South, then switch to East-West in 
the same deal, the return to that deal again 
and test your skill with a different strategy. 


Bridge $39.95 
Handic-for the 
broadest range of 
Commodore products 


As the largest independent developer of 
Commodore software and accessories, 
Handic's broad range of business, educa- 
tion and recreation products are designed 
exclusively for the Commodore user who 
demands quality and reliability. 
& Hardware 
Sofussories dore ComP 


С at alo gue 


For more information and a catalogue of 
our products, see your nearest Commo- 
dore dealer, or call us direct. 


andic 


Handic Software, Inc. 
Fellowship Business Center 
520 Fellowship Road, B 206 
Mount Laurel, NJ 08054 
Phone (609)663-0660 


Commodore 64 is a registered trademark of Commodore Electronics, Ltd. 


The Future Of 


Computer Games: : 
powo e That Thinks For Itself 


Selby Bateman, Assistant Editor, Features 


From the Temple of Apshai to Zaxxon and Zork, computer , 
games challenge, intrigue, and delight millions of us every day. .. 
But software producers are " working feverishly to make ` 

tomorrow’s games even smarter, faster, and 
" more interactiye. 


”. 


М. 


tor The Games Network са 
television type computer games system. 


zy indepen evaluators nationwide as among the finest 
available. Relax as you learn how to operate your program 
with clear, concise tutorials written by professional writers... 
not programmers. For consultation on your special questions, 
technical support personnel are standing by on a toll-free basis. 


DATABASE MANAGER, $89.95 

* 100% Machine Language * Free Form Design * Sort On Any Field е Calculated Fields 
e Interfaces to W.P. е Record Size = 2,000 Characters 

ADVANCED REPORT GENERATOR, $49.95 

e Companion to Database * Totals and Subtotals е Field Matching * Expanded Reports 
* Sorting (Up & Down) * Calculated Fields 

WORD PROCESSOR, Professional Version $89.95 

* 80 Col w/o Addt'l Hdwr * 100% Machine Language • Spelling Checker (30,000 Words) 
е Over 70 Single Keystroke Commands • Printer Command File е Interfaces to Database 
WORD PROCESSOR, Personal Version $39.95 

* 100% Machine Language * True Word Wrap * Printed page/line/character counters 

e Right Justify, Center • Printer Command File * Interfaces to Database 


MiRACe СОПСЕРСЭ, inc. 


2519 W. Shaw Ave., #106 * Fresno, CA 93711 
TM-— Commodore 64 is a Registered Trade Mark of Commodore Electronics, Ltd. 


For Brochures, Support 
and Information, Call... 


(800) 641-1441 


In California, Call... 


even Cities of Gold is an attempt 
Ё Ё © with the computer medium to do 
for the sixteenth century and the 
Spanish conquistadors what 
Shogun did for sixteenth-century Japan,’ says David 
Grady, publications manager for Electronic Arts. 

The fact that Grady can say that with a straight 
face is due in no small sense to his company's 
remarkable track record in producing some of the 
most innovative and well-conceived computer 
games on the market. 

And the new game he's referring to, Sever 
Cities of Gold, is a good example of several trends 
in game software we'll see in the future—more 
depth of play, greater background research, 
sophisticated humor, and increased emphasis on 
human qualities. 

Like James Clavell's book, Shogun, Seven Cities 
is an attempt to recreate a past world full of rich 
detail. But in this world, you decide how almost 
every phase of the plot will be carried out. 

“Its like writing a historical novel,” continues 
Grady. "And when that is what you set out to do, 
you've got to make it work like a historical novel. 
You've got to immerse yourself in the period, and 
think about what you can do with the medium to 
give people the kinds of emotions that you're 
discovering existed in the period as you do your 
research." 

A brief description of the game only hints at 
its depth: As a sixteenth-century Spaniard, you 
lead an expedition to discover the new world, 
first outfitting your ship, getting the king's 
blessing, and then sailing off to—who knows 
where? There are thousands of miles of ocean in 
which to get lost and the prospect of a mutinous 
crew. There are natives who may be hostile, 
friendly, or just wary. And there is the entire 
new world for you to explore, settle, and—as in 
history—to plunder. But beware. The new world 
holds penalties for too rapacious an attitude. 

The game, created for Electronic Arts by 
Ozark Softscape (which also developed M. U.L.E.) 
is expected to be available for the Commodore 64 
and Atari machines by the time you read this, 
and for IBM and Apple computers later this year. 

“As you get computers which have more 
memory available and more speed, programmers 
are going to take advantage [of these] to do more 
richly complex things," says Grady. "And build- 
ing models of things that work in the world is one 
of the neat things you can do with a computer." 
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here is a focused attention among computer 

game producers today, much like the concen- 
tration that would come with the prospect of being 
hanged at dawn. Why? Millions of dollars can be 
won or lost by software developers and the dealers 
who sell the software. And all of that potential 
profit or loss hinges on correctly anticipating what 
games the public will want a year or two from now. 

What will the consumer buy tomorrow? "It's 
like trying to aim at a moving target," says Ken- 
neth Williams, president of Sierra On-Line, one 
of the industry's most successful software man- 
ufacturers. His comment was made during a spe- 
cial seminar on computer games at last February’s 
Softcon, the international conference and trade 
fair for the software industry. 

Words of warning came from writer and game 
designer Roe Adams III, another participant in 
the seminar: “People are becoming more finicky 
about software. Game designers will have to bring 
people into the game. 

“Тһе software companies that will succeed 
are the ones which put human values in their 
software," he added. 

That prescription will be important for the 
games of the future, whether they are fast-action, 
arcade-style games or the increasingly popular 
text adventures. 

In B.C.'s Quest For Tires ($34.95), Sierra On- 
Line features Johnny Hart's internationally popu- 
lar cartoon strip, B.C., to add humor and a human 
touch to a colorful, fast-action contest. 

As software manufacturers reach for a larger 
audience, they are using familiar names, faces, 
and situations to help consumers identify with 
their games. HesWare’s Minnesota Fats’ Pool Chal- 
lenge, Bróderbund's Choplifter (remember the 
Iranian rescue mission?), and Datasoft’s The Dallas 
Quest (J. R. Ewing and the rest of the family) are 
examples. 

The growing popularity of adventure games 
holds another key to the future of computer soft- 
ware—more sophisticated use of natural lan- 
guage. Early adventure games allowed the player 
only a limited number of commands—usually 
two-word orders such as “Get lantern” or "Kill 
dragon." The newer games, and those still on the 
drawing boards, use far greater vocabularies and 
more powerful parsers, which are used to interpret 
your commands. Full sentences can now be inter- 
preted by game software. 

Sierra On-Line is a company which pioneered 


Geoff Zawolkow 
Vice President, Product Development 
Advanced Ideas 


. Start A Tradition 
With Advanced Ideas 


Bring the whole family together with 
programs that are educational, flexible, 
extendable and fun. As the years go by 
you'll be glad you did. 


Families like yours know programs aren't 
all the same. And that a computer is only 
as good as the software that runs on it. 


So go ahead. Demand programs flexible 
enough to fit your children’s abilities as 
they grow. Insist on features that extend 
subject matter as far as you want to take 
it. And be unimpresed if the whole thing 
isn't great fun. Then watch as your family 
keeps coming back to Advanced Ideas. 
You'll discover that you've really started 
something. 


How to Choose Software 
for Your Home 

"As an educator with over a decade of 
experience using computers with child- 
ren, l've found there are key features in 
a well-designed learning game. One 

is extendability. 


Look for enough variety to hold your 
child's attention over time. Some games 
are appealing in the short run, but are 
quickly mastered. Supplementary materi- 
als such as disks of added lessons can 
continue your child's interest and 
enjoyment. 


The ability to modify a program is another 
form of extendability. Authoring systems 
can let you create lessons on your own 
topic areas for any age level and allow 
children to create and save original work, 
giving a sense of completion and pride 
vital to learning.” 


Software of Choice 

Advanced Ideas (formerly Computer- 
Advanced Ideas) leads the industry with 
programs designed for extendability 
through easy-to-use authoring systems 
and a unique library of LearningWare™ 
diskettes. Rich game play and sound 
educational design have won Advanced 
Ideas programs the approval of the 
National Education Association. 


Ask to see a demonstration at your local 
computer store. | 


Then make 
Advanced Ideas 
a tradition in 
your home. 
| | 
"Advanced Ideas " 


Bringing Ideas Home 
2550 Ninth Street Suite 104 Berkeley, CA 94710 
(415) 526-9100 
Advanced Ideas programs are compatible with the most popu 
lar computers: Apple," ІВМ” and Commodore.™ 
Apple is а registered trademark of Apple Computers, Inc. ІВМ is 
а registered trademark of ІВМ Corp. Commodore is a trade- 
mark of Commodore Business Machines. Inc. 
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The expedition has landed on an uncharted island in Electronic 
Arts' Seven Cities of Gold. 


the use of graphics in text adventure games. "We 
have to lay out an adventure game like we're doing 
ten different games in order to get people to play 

it over and over again," says Williams. 

King's Quest (IBM PC, $49.95) a new adventure 
game from Sierra On-Line, was almost two years 
in the making, he says. Using the keyboard and 
an optional joystick, you guide Sir Grahame 
through a series of adventures, using full sen- 
tences. There is more than one ending to the game, 
and a player is given points for the cleverness of a 
particular solution. 

But, with King's Quest, colorful three- 
dimensional graphics accompany the text. Char- 
acters are animated to a greater degree than in 
past adventure games. They run, talk, and swim, 
for example. The ultimate goal for the future, 
Williams says, is realtime animation. You type in 
a command for your character to open a door and 
walk to another room. The door will then be seen 
to open, a creaking sound will be heard, and your 
character will walk through. 

Infocom, Inc., a software company that is 
already something of a legend in its own time, 
avoids adding graphics to the complex and cap- 
tivating text adventure games it produces. A vari- 
ety of different games, such as the Zork trilogy, 
the murder mystery Deadline, and the science 
fiction adventure Suspended, has gained Infocom a 
fiercely loyal following. The Zork games sparked 
a Zork User Group (ZUG) which boasted more 
than 20,000 members. ZUG has since disbanded, 
but interest in Zork remains strong. 

A new game, Sorcerer ($49.95), is a sequel to 
the company's popular Enchanter, and a part of In- 
focom’s interactive fiction series in the mystic arts. 
Sorcerer can understand a vocabulary of more than 
1,000 words, which allows you a much more nat- 
ural dialogue with your computer. As a neophyte 
wizard, you depend on spells, potions, and other 
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B.C.’s Quest For Tires by Sierra On-Line features a popular 
cartoon character. 


magic powers to find treasure and solve puzzles. 

“Ultimately, the nicest thing would be to talk 
to your computer and say, ‘OK, now I'm going to 
interrogate this suspect about where he was when 
the murder was committed,’ something like that,” 
says Marc Blank, a vice president at Infocom and 
one of the guiding lights in the company’s success. 

“We've always felt that sound and graphics 
are pretty much irrelevant, and in a way detract 
attention from other parts of the story. Those 
things are really bells and whistles,” һе says. 
“We've spent our time working on the plot and 
the writing, the puzzles, and the parsing—things 
that are much more relevant." 


T adventure games also allow great leeway 
in the use of humor, another part of computer 
programming that game developers will continue 
to explore in future games. 

Tell Sirius's Blade of Blackpool that you wish to 
do harm to an innocent bystander, for instance, 
and the game's response is likely to be "My, we're 
feeling violent today!" Type in the word “Sneeze” 
in Infocom's Planetfall. "Gesundheit" flashes on 
the screen of your computer. Humor and an un- 
derstanding of human foibles are facets of adven- 
ture games that the best programmers bring to 
their craft. 

“All of us like to laugh a lot," says Electronic 
Arts’ Grady. “We like to play. And humor just 
naturally flows from that situation. So we quite 
naturally found ourselves wanting to publish 
games that would make people laugh.” 

Infocom's Blank agrees, “Inevitably, if you're 
giving the player a lot of open-ended possibilities, 
some of them are just inherently humorous or 
absurd. And we all have the sense of which things 
we should consider when we're writing the 
games, and which things we shouldn't bother. I 
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If getting the whole family together : 
enge, maybe you need games 


that really challenge the whole family. 


Introducing a new generation 


of computer games. Family Learning 
Games from Spinnaker. 


Ever notice how a little fun with the 
family can be a little hard to arrange? 

Well, now there's a solution —Spinnaker's 
Family Learning Games. A whole family of 
great games that make getting the family 
together seem like child’s play. And make 
“family fun” really seem like fun again. 
What's more, they'll even help your kids 
develop some very important skills. 


AEGEAN VOYAGE" 


Where do monsters lurk? And 
which islands have treasures 
to behold? Heed the oracle’s 
words, for only his clues can 
lead you to riches and a safe 
return. Ages 8 - Adult. 


AEGEAN 
VOYAGE 


What makes our Family Learning Games 
so special? Well, for one thing they're 
designed to challenge and excite everyone 
in the family, frorn grade schoolers to 
grownups. Their unique combination of 
chance and strategy makes them perfect 
for young players, yet challenging enough 
that everyone will want to play them again 
and again. 

But what makes our Family Learning 
Games even more unique is how they help 
kids learn—about problem solving, strategiz- 
ing, spelling, even Greek mythology. That's 


ADVENTURE 
тм 
ADVENTURE, | CREATOR. 
CREATOR Design a challenging adventure 
ai 4 game that everyone can play — 
ES nil or let the computer design one 
ao for you. It's exciting, creative — 


and utterly addictive! 
Ages 12 - Adult. 


quite a bit more than they'd learn from a 
typical board game (if you could even get 
ther to play a typical board game). 

So next time you want to get every- 
body together, don't get discouraged— get 
Spinnaker's Family Learning Games. 

You'll find the biggest challenge in family 
fun won't be on the refrigerator. It'll be 
on the computer. 

Spinnaker games are available for ColecoVision® and 


for Coleco Adam," Commodore 64™ and Atari? home 
computers. 


UP FOR GRABS.” 


It's a wildly exciting crossword 
game where everyone has to 
think fast. More words will help 
you win — but don't get caught 
with leftover letters! 

Ages 8 - Adult. 


7 
S£ Y 2/4 ER тм Cartridges for: ColecoVision, Coleco Adam, Atari 


We make learning fun. 


and Commodore 64. 


ColecoVision and Atari are registered trademarks of Coleco Industries and Atari, Inc. respectively. Coleco Adam and Commodore 64 are trademarks of Coleco Industries and Commodore Electronics Ltd. respectively. ©1984, 


Spinnaker Software Corp. All rights reserved. 
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Graphics and text are combined in Sierra On-Line's adven- 
ture, King's Quest, for the IBM PC. 


think the humor is very important. It's a way of 
making the machine less visible, by making it a 
little more human.” 

How revolutionary will the changes be in 
future games, as humor and human touches are 
added to other improvements in programming 
and computer capabilities? "My guess is it's going 
to be more evolutionary, with some reasonably 
large steps every once in a while. But I don’t expect 
anything revolutionary,” says Blank. 

“Оп each game, what we're really working 
on is to add something new. And then every year 
or so to come out with something that’s different, 
that puts all that together with other things to 
create a product that’s more than the sum of all 
these improvements,” he adds. 


T popular success last year of a new video 
disk arcade game called Dragon's Lair, leads 
its creator, Don Bluth, to believe that laser-driven 
video disks are the wave of the future. And that 
includes home computers as well, he says. 

Bluth, a former Walt Disney animator who 
now heads Don Bluth Animations, is producer 
and designer of a similar video game, Space Ace, 
which made its debut earlier this year. 

Like Dragon's Lair, the new game features 
colorful motion-picture style animation, a cast of 
zany characters, stereophonic sound, and a fast- 
paced multiple-decision scenario for the user. 

Slightly more than 25 minutes of classical 
animation have been programmed onto the pitted 
surface of a video disk, which is about the size of 
a record album. A laser reads the pits. "Pioneer 
has come up with a new machine which is a very, 
very fine player," says Bluth. “It has a random 
access which is much faster. It can randomly access 
several things consecutively up to about five feet 
of film, and you will see no search (the half-second 
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A typical screen from the all-text adventure, Infidel, by 
Infocom. 


blank-screen delay caused when the laser jumps 
from one part of a disk to another). 

“Tt still uses one laser, but it’s done witha 
mirror action. The laser is refracted and instan- 
taneously thrown across the disk. So the only 
time you will see a tiny search is when you have 
failed to make a correct move and you access to a 
death scene. But if you're playing successfully, 
you'll see no search time," he says. 

Space Ace cost about $1.8 million to develop, 
says Bluth. And a sequel to Dragon's Lair, called 
Dragon's Lair II—Time Warp is being created at a 
cost of about $2.3 million. 

“Тһе laser disk is a very delicate instrument, 
and when it's used properly, the game will be 
exciting to look at and to play," says Bluth. ^When 
those two elements work in tandem, I believe you 
will make obsolete the traditional arcade game 
because we'll leave the arena of big dots and enter 
the arena of motion picture entertainment. If Space 
Ace works very well, then we'll know that Dragon's 
Lair was not a fluke, and that the laser disk future 
is very bright." 

Coleco has reportedly purchased the rights 
to both games for possible introduction into the 
home through its Adam computer system, al- 
though no details about the plans have yet been 
announced. 

“The laser disk industry will start to blos- 
som,” says Bluth. "And when that begins to hap- 
pen, the price will come down. Sitting there in 
everyone's living room, with all the other players 
that they'll have, will be a laser disk player." 

A unique enterprise started this spring in 
Orange County, California, which—if suc- 
cessful—will bring a television-based games ser- 
vice to the nation. Called The Games Network, 
this system offers 20 different computer games 
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Introducing a whole of Learning 
Adventure US fom Spinnaker, 


When it cornes to cultivating adventu 
young minds, the computer's potential is 
endless. 

Unfortunately, the search for software 
that makes the most of that potential has 
been endless, too. 

That is, until Spinnaker created the 
Learning Adventure Series. A unique collec- 
tion of games that reward curiosity with 

It's New! TRAINS." 


You're in charge of an old-time 
railroad —and whether it turns 
into a bonanza or a bust depends 
on how well you run it. But either 
way you'll find that working on 
this railroad is a challenge— and a 
lot of fun! Ages 10-Adult. 


omputer to cultivate your kids minds. 
Make sure its bearing fruit, not growing vegetables. 


hours of adventure and learning. So the 
time kids spend with our games will help 
them develop valuable skills. Instead of just 
tired thumbs. 

But what really makes our Learning 
Adventure games unique — educational value 
aside—is how much fun they are. Which isn't 
too surprising when you consider you can 
do things like bargain with aliens, search a 
haunted house, or build your own railroad 
empire. 


It's New! 
ADVENTURE 
CREATOR." 


Design a challenging adventure 
game that you or a friend can 
tackle— or let the computer 
. It's complex, 
iting — utterly addictive! 
Ages 12-Adult. 
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We make learning fun. 


In fact, our games are so rnuch fun, kids 
will really enjoy developing some very impor- 
tant skills. Deductive reasoning, note taking, 
and problem solving, for instance. 

So, if you're in the market for software 
that will truly cultivate young minds, pick the 
Spinnaker Learning Adventure Series. 

It's the best way to be sure your search 
will be fruitful. 

Spinnaker Learning Adventure games 


for Apple,® Atari,® IBM* and Commodo 
computers. 


available 
64™ home 


IN SEARCH OF 
THEMOST — . 
AMAZING THING. 


It isn't easy to find —even in 

your B-liner. But you'll have help 
from your Uncle Smoke Bailey 

as you search the universe to find 
the Most Amazing Thing. 

Ages 10-Adult. 


Disks for: Apple, Atari, IBM, and Commodore 64. 
ТА! 
(ADVENTURE CREATOR only) 


Apple, Atari and ІВМ аге registered trademarks of Apple Computer, Inc., Atari. Inc. and International Businéss Machine Corp. Commodore 64 is a trademark of Commodore Electronics Ltd. ©1984, Spinnaker Software Corp. 


Ali rights reserved. 
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which can be downloaded from your television 
Screen into a specially leased 64K microcomputer 
(not a stand-alone) named The Window. The Net- 
work will offer a variety of educational, arcade, 
and adventure games. Five new games will be 
added and five old games dropped each month 
by The Network. 

For a suggested one-time installation fee of 
$30 and a monthly suggested user fee of $15.95, 
you can play any of the games night or day, seven 
days a week at no extra charge. Downloading to 
personal computers would present the problem 
of software piracy, which is not a possibility with 
The Window, says Randy Wise, director of sub- 
scriber services for The Games Network. 

"We're a programming service similar to HBO 
or Showtime, except that we need special 
hardware to run," he says. “There is no up-front 
cost to the cable operator. We put in the head-end 
hardware, and release the hardware to the cable 
operator to put into the subscriber's home. АП of 
the payments for that are based on subscriber 
fees, so we've made it as easy for the cable 
operators to get into The Games Network as it is 
for subscribers." 

A test of the system over a year ago in Fuller- 
ton, California, resulted in a very good response, 
says Wise. 

“There are some interesting concepts here 
which no one has had a chance to explore yet. 
People can look at a program and get used to it on 
The Games Network. If it’s something they like, 
then they're more likely to want to go out and 
buy it,” he says. 

The Games Network plans to coordinate its 
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offerings with software com- 
panies. New software may be 
previewed on the system, and 
classic computer games might be 
given new life when millions of 
new users see them for the first 
time, he notes. 

“We feel many millions of 
people will be exposed to com- 
puters who right now don’t 
know anything about them. And 
once they gain some familiarity 
through the painless procedure 
of playing games on The Games 
Network, they'll get interested 
in buying hardware and soft- 
ware," says Wise. "We feel it's 
going to actually speed up the 
whole computerization of 
America." 

As the world becomes more 
computerized, it's certain that 
games will continue to hold a 
special fascination for millions 
of computer owners. And software manufacturers 
are making it clear—by their new products and 
their plans for the future—that they're doing far 
more than just playing games. @ 


TELECOMM-20 
TELECOMM-64 


METAPHASE SOFTWARE has produced an extremely 

powerful yet simple to use terminal program for the 
Commodore 64® and VIC 20® computers. Compare this list of 
features to those of any other terminal program: 


* Compatible with all modems which connect to user port. 
* Completely menu driven. е Downloads text, program, or data files. Saves 
screens.or saves transmitted information continuously. Stores downloaded 
files on cassette or disk, or dumps to printer. е Uploads text or program files. 
Reads files from cassette or disk. • Connect-time clock.** • ASCII or Commodore 
character codes.** • Captures and displays high-resolution bit-mapped graphics 
files.** e Full support for auto-dial and auto-answer modems.** e Color selection 
menu. Set border, screen, and character colors. 


* User selectable communication protocols 
* Baud rate...50-2400 * Word length... 5-8 bits 
*Stopbits...10r2 * Duplex... full or half 


* Comprehensive documentation in 3-ring vinyl binder. 
AND NOW COMPARE OUR PRICE . .. ONLY 29.95 (disk or cassette)!!! 


+ VIC 20* version requires at least 16k binary expansion. "* C&4 version only 


FEVER BLACKJACK 
(C-64 only] 


If you want to learn to win at CASINO BLACKJACK, or, if you simply enjoy 
playin the game, then FEVER BLACKJACK is for you. Learn the basic rules 
of BLACKJACK or learn sophisticated card counting techniques. The high-res 
color graphics of FEVER BLACKJACK will make you think you are sitting at 
the table. Play against the computer as you would a real dealer. Vary the 
number of decks, bet size, or dealing speed, or learn by watching the 
computer play itself. More advanced players may practice card counting. 
Two different card-counting systems are preset, or you can modify them 
with your own system. FEVER BLACKJACK will play thousands of hands 
according to your own system and then display the WIN/LOSS ratios as a 
function of the card count. THERE'S NO LONGER ANY EXCUSE NOT TO 
WIN AT BLACKJACK ! 

+ УІС20 and Commodore 64 are registered trademarks of Commodore Business Machines, Inc. 
SPECIAL INTRODUCTORY PRICE ... $19.95 (disk or cassette) 

Check, money order, VISA, MASTERCARD accepted 

VI Add $2.00 handling per program (CA residents add tax). MC 

* * Dealer Inquiries Invited * * * 


METAPHASE SOFTWARE 
P.O. Box 7263 San Jose, CA 95150 
408-268-3498 


* Parity... even, odd, none 
* Echo... local or remote 


We're 
the #1 


of 

easy- 
to-read 
computer 
books 
and 
easy- 
to-use 
software. 


Prices are subject to change 


The Commodore Connection 
More Easy to Read Books and Software 


from iP dilithium Press 


MORE THAN 32 BASIC 
PROGRAMS FOR THE 
COMMODORE 64" 

Tom Rugg, Phil Feldman 

and Western Systems Group 

BOOK: 


ISBN 88056-112-2 354 Pages $19.95 
134 Illustrations 

BOOK/SOFTWARE PACKAGES: 

ISBN 0-88056-180-7 БАДЕН $39.95 
ISBN 0-88056-183-1 cassette $39.95 


(Software runs on Commodore 64 computer with: 
64K memory and 1 disk drive or cassette recorder) 


MORE THAN 32 BASIC 
PROGRAMS FOR THE 


VIC 20" 
Tom Rugg, Phil Feldman 
and Clarence S. Wilson 


BOOK: 

0-88056-059-2. 354 pages $19.95 
114 Illustrations 

BOOK/SOFTWARE PACKAGE: 

ISBN 0-88056-181-5 cassette $39.95 


(Software runs on a VIC 20 computer with recorder. 
Note: four of the programs require a 3K expansion) 


Here isa collection of programs for your entire family. Both books are 
chock-full of programs with practical applications, educational uses, 
games, and graphics too! Type in programs from the books or use ready 
to run programs provided in the book/software packages. 


publisher KEEPTRACK" REPORTER 


Norm Church and Bruce Schneider 


Now you can quickly and accu- 
rately custom design and format 
reports and mailing labels from 
KeepTrack files. For home, 
business, or education, KEEP- 
TRACK REPORTER enables 
you to select data based on any 
category, and easily sort it on 


multiple categories. 
BOOK: 


ISBN 0-88056-142-4 102 pages $9.95 
55 Illustrations 

BOOK/SOFTWARE PACKAGES: 

ISBN 0-88056-196-3 5'A' disk $39.95 
ISBN 0-88056-197-1 cassette $39.95 


КЕЕРТКАСК”: File 
Manager for Personal 
Computers 

Norm Church 


This book and software package 
turns your Commodore 64 or 

VIC 20 computer into a personal 
filing cabinet! It's designed for 
easy access and will “keep track" 
of everything from birthdays to 


tax deductions. 
BOOK: 


ISBN 0-88056-128-9 100 pages $9.95 
50 Illustrations 

BOOE/SOFTWARE PACKAGES: 

ISBN 0-88056-185-8 Бу" disk $29.95 
ISBN 0-88056-192-0 cassette $29.95 


(Software — either disk or cassette — contains programs for Commodore 64 computers on one síde, and 


programs for VIC 20 computers on the other) 


dilithium Press 


Р.О; Box E % 


Department INF + Beaverton, Oregon 97005 


Ki 


A PET Fo 


A PET® FOR KIDS 
Sharon Boren 

(Also for the Commodore 64 and VIC 20) 
A fresh, fun, and instructive 
approach to teaching kids pro- 
gramming and computer opera- 
tion. Illustrations and examples 
motivate children ages 8 to 13 
to higher learning levels. 


ISBN 0-88056-106-8 
140 illustrations 
Activity Workbook and Teacher's Guide alsoavallable 


200 pages $9.95 


SEND TO: dilithium Press 
P.O. Box E 
Beaverton, OR 97075 


derstand that if I'm not fully satisfied, I can re- 
turn the book(s) within 10 days for full and 
prompt refund. 
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COMMODORE 64 COMPUTER 
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O BOOK/DISK $39.95 

О BOOK/CASSETTE $39.95 
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О BOOK 89.95 
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dilithium Press books are available at 


your local bookstore or computer store. 
You can also call us to charge your order 
on VISA or MC — 800-547-1842 outside 
of Oregon, or 646-2713 in Oregon. 
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TOMR. HALFHILL 
FEATURES EDITOR 


Each month, COMPUTE!’s GAZETTE will tackle some 
questions commonly-asked by new VIC-20/Commodore 
64 users and by people shopping for their first home 
computer. 


Q. I've been reading a little about machine 
language, and I'm confused about the difference 
between machine language and assembly lan- 
guage, and machine language monitors and as- 
semblers. Can you explain? 


А. A thorough discussion would require much 
more space than we have here, but essentially 
machine language and assembly language are the 
same thing. The terms are used pretty much in- 
terchangeably these days, although we prefer to 
say "machine language.” 

The term assembly language comes from assem- 
bler. You can think of an assembler as a utility—a 
tool—for putting together (assembling) a machine 
language program. You don't need an assembler 
to write machine language, but it makes the job a 
lot easier. 

The earliest computers could be programmed 
in machine language only. They lacked enough 
memory to hold a language such as BASIC (which 
itself is just a large machine language program). 
The first kit-built personal computers didn't even 
have keyboards. Instead, there were eight toggle 
Switches on a front panel, one for each bit ina 
byte. To write a program, you had to toggle the 
switches in hundreds of different patterns. (If 
you think typing in a BASIC program listing is 
laborious and error-prone, you ought to try this.) 

An assembler is a utility program which au- 
tomates this process. You type in a three-letter 
abbreviation for a command, called a mnemonic 
or opcode, and the assembler sets the internal 
"switches" in the correct pattern for you. 

A monitor (not to be confused with a display 
screen) also is a tool to make machine language 
programming easier. A monitor is like a window 
into the computer's memory. You can examine 
sections of memory, change their contents, move 
them around, and search for certain numbers. 
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_ SIMPLE ANSWERS TO COMMON QUESTIONS 


Many monitors even include mini-assemblers. 

Machine language programmers are divided 
into two camps: those who write their programs 
with monitors, and those who prefer assemblers. 
Beginning machine language programmers whose 
backgrounds are in BASIC probably would feel 
more comfortable starting with an assembler. But 
monitors are useful too, especially for debugging 
programs created with assemblers. 


Q. If I send a command to the disk drive and 
there is no disk in the drive, does this cause any 
damage? 


A. Absolutely not. The disk drive's red LED 
"busy light" will glow for a few seconds as the 
drive attempts to access the nonexistent disk, and 
then it will start blinking. A blinking busy light 
indicates an error condition. But the drive will not 
be damaged in any way. The LED will stop blink- 
ing the next time you access the drive, or when 
you read the error channel (see your user's man- 
ual). 

In fact, there is no way you can physically 
damage your computer or any of its peripherals 
by entering any kind of command at the keyboard. 
At worst, you might issue a series of commands 
which could lock your printer into an "endless 
loop" and cause a paper jam or eventual burnout. 
But even this is highly unlikely, and would happen 
only if you left the printer running unattended 
for a while. 

Occasionally an erroneous series of com- 
mands will trap the disk drive in an endless loop. 
This might occur if you're writing a program which 
accesses the disk drive and you forget to provide 
an escape from the loop. If left alone, the drive 
might continue spinning indefinitely and eventu- 
ally overheat. But again, you'd have to be ignoring 
the situation for quite some time before this 
happened. 

In any case, no matter how badly you goof 
up, you can always completely reset the computer 
system by turning everything off for a few seconds 
and then back on again. Any program or data 
stored in the computer's memory will be wiped 
out, of course, which is why it's important to save 
copies on disk or tape. @ 


All the hits 
your computer 

15 missing. 
| gem 
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ATARISOFT 1 

ATARISOFT MS. PAC-MAN P" атарот — "- ATARISOFT 
MS. PAC-MAN MOON PATROL L "mr MS.PAC-MAN ^u 
Joust JUNGLE HUNT MOON PATROL Aser 
MOON PATROL BATTLEZONE — ^" JUNGLE HUNT ает 
JUNGLE HUNT POLE POSITION ~“ BATTLEZONE 
POLE POSITION GALAXIAN JOUST 
GALAXIAN : STARGATE GALAXIAN 
PAC-MAN DONKEY KONG ^"^ DONKEY KONG 
DONKEY KONG : DEFENDER DEFENDER 
DEFENDER DIG DUG DIG DUG 
DIG DUG manor, CENTIPEDE — ^" CENTIPEDE 
CENTIPEDE ROBOTRON:2084 ^'^" ROBOTRON:2084 
ROBOTRON: PAC-MAN ЕЕЕ PAC-MAN 


COMMODORE 
VIC 20 


If you thought you'd never find fun games for And we've got them for all the hit computers 
your hardworking home computer, happy days. ...Apple, ІВМ, Commodore 64, Vic-20, Colecovi- 
are here. Because now ATARISOFT™ has all sion* and TI 99/4A. We've got Pac-Man, Centi- 
the great hits...Pac-Man) Donkey Kong’ by pede and Defender for Intellivision too. 
Nintendo? Centipede" Defender} Joust? Jungle So dust off your joystick and ask your dealer 
Hunt! Moon Patrol? Pole Position? Galaxian! for all the ATARISOFT hits. It's the software your 
Ms. Pac-Man! and Battlezone™ hardware's been waiting for. 


ATARISOFT. 


All the hits your computer is missing. 


ATARISOFT products are manufactured by Atari, Inc. for use with various computers and video game consoles. ATARISOFT products are not made, licensed or approved by the manufacturer(s) of these 
computers and video game consoles. * Donkey Kong and Battlezone not available on Colecovision. 1. Trademarks of Bally Mig. Co. Sublicensed to ATARI, Inc. by Namco-America, Inc. 2. Trademarks and 
© Nintendo 1981, 1983. 3. Trademarks and © Williams 1980, 1982, manufactured under license from Williams Electronics. 4. Trademark and © of Taito America Corporation 1982. 5. Engineered and 
designed by Namco Ltd., manufactured under license by ATARI, Inc. Trademark and € Namco 1982. Аїап® A Warner Communications Co. © 1984 ATARI, Inc. All rights reserved. 


The 
Designers Behind 


M.U.L.E. 


Kathy Yakal, Editorial Assistant 


Dan Bunten, head of the design team behind M.U.L.E. 


They're all over 30—"old men in the computer 
field," by their own admission. But they've written 
a game with enough depth and charm to keep the 
most discriminating videogame players happy for 
hundreds of hours. They're the design team behind 
M.U.L.E.: Dan Bunten, Bill Bunten, Jim Rushing, 
and Alan Watson. 
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\ (25 winners) 


a. А Ве] & Howell 

35mm camera. The 35] 
complete with fine Lumina lens completely elim- 
inates complicated focusing. 


(100 winners) 


Camouflage 
Nylon Duffle Bag. This handsome bag 
is water repellent and double reinforced at all 
stress points. 
And thousands of Elephant Safari camou- 
flage T-shirts featuring the Elephant logo. 


ENTER THE ELEPHANT SAFARI 


EPSTAKES. 


GRAND PRIZE 


(1 winner) 


An exciting two week adventure for 
two to a wild game preserve in Kenya, 


Africa. The trip includes airfare, 
luxurious accommodations, meals, 
tips, and taxes. / 


FIRSTPRIZE = | 


(5 winners) 

A Deluxe Camping Pack- 
age featuring an 8’ x 10’ 
Wenzel Cabin Tent, four 
Wenzel sleeping bags, 
plus a Coleman lantern, 
stove and cooler. 


HOW TO ENTER 


No purchase necessary. Just come into a participating 
Elephant Safari Sweepstakes dealership where you "ll 
find free entry blanks and official rules. While you’ re 
there, check out our full line of quality 
Elephant memory disks and accom- д 
panying products. Entries must be 
received by July 31, 1984. Void 
where prohibited. 


For the Elephant 
LII dealer nearest you, 


call 1-800-343-8413. 
In Massachusetts, call 
collect 617-769-8150. 


ELEPHANT NEVER 
FORGETS 


HAVEYOUEVERREALIY = 
FIGUREDOUTWHYYOUBOUGHT — — 
A HOME COMPUTER? 


| € 


WE HAVE. 


Most people have never really figured out why they dont go together. So when you use one, you cant use the 
bought a home computer. That's because most people other. And you really should have both. 
have never figured out what their home computer can SOFTEXT has the solution. We have a selection of intelli- 
really do. Theres more to it than balancing a checkbook gent, stimulating, integrated, software/book packages. 
or zapping aliens. The software and books can be used alone or in combina- 


But how do you learn enough about your computer to ^ tion. And each software/book package also includes ап 
figure out what it can really do? You could buy one of the ^ easy-to-understand Users Guide. 
thousands of computer books on the market. Or you could So don't sit around trying to figure out why you bought a 
buy one of the thousands of pieces of educational home computer. Instead, figure out how you can get your 
software. But the problem is that the books and software hands on a SOFTEXT package. 


AT THE HEART OF THE MOUNTAIN 
This package teaches children and adults 
to program in BASIC by involving them 
in a fascinating adventure story. Join 
the characters in a journey of daken 
as they too learn about computers for 
the first time. 


DISCOVER YOUR VIC-20 
Using specific examples, this is 


2 ап айуепїиге-Базе@ pack- 
EASY PROGRAMMING 


age that goes beyond the 
WITH THE TI-99/4A traditional BASIC 
Get the most out of your introduction. 


ТІ-99/4А. Learn efficient, 
professional programmin: 
techniques even if youre 

a beginner. 


THE COMMODORE 64: 
MUSIC MASTER’ 

This is the only true 
"teaching" package 

of its kind. Learn to 


f THE COMMODORE 
f PUZZLE MASTER 

This package contains 
fifty brainteasers and 
their programmed 


compose and create solutions. Learn how 
music while exploring to design your own 
sophisticated puzzles with color, 
programming skills. ^Y sound and graphics. 


AN INTRODUCTION 
TO THE COMMODORE 64 
This is a thoughtful, entertaining, 
self-paced guide to programming. 
An important investment for 

any Commodore 64 owner. 
(Shown with book and tape) 


| == SOPTEXT 


WE'RE THE REASON 
YOU BOUGHT AHOME COMPUTER. 


SOFTEXT INC., 380 Green Street, PO. Box 2007, Cambridge, MA 02139, (617) 876-2334 


he ship has just dropped you off on an 
unsettled planet, and won't be back for 
months. You have some money to buy 
supplies at the local store. You have the 
assistance of three companions. And you have a 
multiunit labor element—a combination robot/ 
telephone/toaster/radio/best friend, affectionately 
referred to as M.U.L.E.—that tends to run away 
occasionally and break down eventually. 

He's basically a good little guy. Maybe a tad 
klunky and weird-looking, especially as he lopes 
across the screen before the game begins, but he's 
gota tough job. Some consider him endearing. 

Settling the planet isn't easy. Acid rainstorms 
may ruin your solar collectors. Insect swarms 
threaten your crops. A fire in the store could de- 
stroy all the supplies. A random meteorite pro- 
vides more crystite—a valuable rock substance— 
but obliterates whatever was in its path. If you 
decide to mine ore, you risk losing everything to 
space pirates. Whatever you choose to cultivate— 
food, energy, crystite, or smithore—can make or 
break you, depending on the supply and demand, 
and on how daring you are during the game’s 12 
auctions. 

And you can't do it alone. You need the help 
of your companions. You need nerve. You need 
your M.U.L.E. 


Mi: of miles from that imaginary planet, 
in a residential district in Little Rock, 
Arkansas, sits a house, rather homey and comfort- 
able. Across the street is a park and a little lake. 

This is the home of Management Systems 
Engineering, otherwise known as Ozark Soft- 
scape. Otherwise known as Dan Bunten, Bill Bun- 
ten, Jim Rushing, and Alan Watson, the designers 
of M.U.L.E. 

Dan, head of the design team, has a back- 
ground in industrial engineering, and has worked 
in a number of "traditional" careers, including a 
stint as an assistant city manager. 

He wrote his first microcomputer program in 
1979. Named Wheeler Dealer, it was a business 
simulation for the Apple. "It was really very primi- 
tive," says Bunten. "Looking at it now, I say to 
myself, "Did people really do those kinds of 
things?' It contained a lot of real klutzy things 
that I wouldn't do anymore.” 
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Wheeler Dealer was published by the now- 
defunct Speakeasy Software and cost $50, which 
was an "outrageous price," according to Bunten. 
“I think it sold 150 copies," he says. 

Though it may not have had appeal, Bunten's 
first program did have something that would 
later become an important element of M.U.L.E.: 
It had four players. "I had to design my own 
hardware device that allowed four different input 
lines," he says. 

Next came Cartels And Cutthroats, another 
business simulator, and Cytron Masters, a ‘‘nonwar 
war game,” according to Bunten. Computer 
Quarterback, which was converted from a main- 
frame, was his best seller (6000 copies) before 
M.U.L.E. 

Cartels piqued the interest of Tripp Hawkins, 
president of Electronic Arts. "Tripp was a real 
Cartels fan,” says Bunten. "Initially, he wanted 
my brother Bill and me to do another game like 
that, a business simulator. The problem was that 
it was a little too cerebral, not as playable as 
M.U.L.E. It did have the kind of depth that Elec- 
tronic Arts was interested in, though." 

About this time, Jim Rushing and Alan Watson 
got involved. "Alan had been a salesman at a com- 
puter store," says Bunten. “Не had written an 
arcade game and sold the rights to it. He was look- 
ing for some way to be able to design games full- 
time, but didn't think it would be possible for 
another couple of years. He was glad to jump at it. 

“Jim Rushing had finished his M.B.A. He 
was looking for jobs, but didn’t find anything 
that really interested him. In the meantime, he 
was learning programming on his own. His cash 
flow needs were so reasonable that we were able 
to bring him on real quick." 

Ozark Softscape also has some part-time help 
which includes Roy Glover, who wrote the de- 
lightful theme song for M.U.L.E. 

M U.L.E. was the result of Ozark Softscape's 

a first effort to design a game as a team, 
though Bill and Dan had played and designed 
games together all their lives. When Dan was 12 
and Bill 10, they drew a complete naval war game 
on their basement floor. 

“Bill and I did the main design of M.U.L.E., 
though the initial brainstorming process involved 


COMPUTE!'s 
GAZETTE DISK 


СОМРОТЕ!5 GAZETTE DISK will premier with the May 
1984 issue Of COMPUTE!’s GAZETTE. When you subscribe 
to COMPUTE! GAZETTE DISK, each month you will re- 
ceive a fully tested 5 ж-іпсіһ floppy disk which will 
run on either your Commodore VIC-20 or 64 personal 
computer. Each issue of COMPUTE!s GAZETTE DISK 
will contain all of the programs which appear in 
the corresponding issue of COMPUTE! GAZETTE. You'll 
save hours of typing time and be able to enjoy all of the high 
quality software found each month in COMPUTE!'s GAZETTE. 


Here are just a few of the quality programs 
which will appear in the May 1984 issue: 


ө Props — a fast-paced, nonviolent game for the Commo- 
dore 64. Animated with machine language, the game 
puts you in control of a pigeon lost in a dangerous sky 
filled with whirling propellers. Your goal is to make it 
across the sky to find your skittish mate, who moves un- 
predictably from coop to coop. 

e SuperSprite — an unsteady flyer depends on you to guide 
him down through a series of unfriendly kryptonite bar- 
riers. For the Commodore 64, SuperSprite makes effective 
use of sprite animation and sound. 


€ PRINT Sound — a utility for the VIC-20 which translates 
letters into musical notes. All you supply is a simple PRINT 
statement. 


€ Sound Story — an exciting demonstration program that 
illustrates the sound capabilities of the VIC-20. A story 
with screen text comes to life with the sound of crickets, 
lightning and thunder, a UFO in flight, and Morse code. 


and many more! 


Ordering Information 


To Order: ; 

То reserve YOUR copy of the premier issue of the GAZETTE 
DISK and enter your subscription, return the attached post- 
paid card or call СОМРОТЕ!5 GAZETTE TOLL FREE 800-334- 
0868 (іп North Carolina 919-275-9809). All orders must be 
prepaid—send check or money order or charge to VISA, 
MasterCard, or American Express. 


Individual Issues: 

Individual issues of the GAzETTE DISK can be ordered for 
$7.95 [in the US and Canada add $1 per issue for shipping 
and handling. Outside the US and Canada add $3 per 
issue). Individual issues can be ordered by calling TOLL 


Subscription Rates: 

Six month subscription $39.95 
(add $18 shipping and handling outside the US and 
Canada) 

One year (12 то.) subscription $69.95 
(add $36 shipping and handling outside the US and 
Canada] 


FREE 800-334-0868 (in North Carolina call 919-275-9809], 
or by sending your prepaid order to: GAZETTE DISK, P.O. Box 
5406, Greensboro, NC 27403. 


everyone," says Bunten. “Bill doesn't program, 
so I translate the ideas into program design. 

“Alan essentially takes care of the graphics 
and animation, how things are going to be pre- 
sented. In M.U.L.E., we wanted something that 
revolved around an auction, and some kind of 
pressure to get people to buy and sell to each other. 
We wanted some kind of creature that was going 
to be the mule, and creatures to represent the 
players. Alan took those ideas and made them 
into graphics and attractive screen design. 

"fim Rushing does the most serious chunks of 
programming. He'll take one big piece, like all of 
the auction dynamics in M.U.L.E. In his case, it's 
not so much design that's needed as very involved 
programming, a lot of effort, and flexibility." 

Remember the first time you played 
Monopoly? It didn't take more than a few minutes 
to read the rules printed on the inside of the cover's 
box, but you probably had to keep referring to 
them in certain situations until you had played 
the game enough times to remember. 

M.U.L.E. presents the same problem to many 
people. “It has a difficult learning curve," says 
Bunten. "That'sa real dilemma. M.U.L.E. is aimed 
ata pretty critical audience. 

"But we were a little surprised to find out 
that it's not as small a group as we were afraid it 
would be. It cuts across all kinds of boundaries 
that we wouldn't have expected. One of those 
that's quite pleasing is that quite a few women 
play M.U.L.E. 

"| don't know why that is. I don't know what 
we did. I do know that we didn't include any 
overt violence, and we didn't make the game 
cutthroat to the point of hurting each other. 
There's competition, but it's within a framework 
of cooperation to ensure success. That's an ap- 
pealing concept. 

Appealing as M.U.L.E. may be, its designers 
feel that it could be more so. They're working on 
a Gold Edition. “You always wish you had another 
month to add some more depth to a game," says 
Bunten. “But it’s a problem of diminishing re- 
turns. Each little piece of additional stuff adds a 
significant amount of time. The publisher has to 
take it away from you at some point. Electronic 
Arts calls it creeping elegance." 
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I nM.U.L.E., Ozark Softscape allows you to 
step forward in time, to aid in the colonization 
of a planet. Their new game, Seven Cities Of Gold, 
takes you back to the sixteenth century, on an 
expedition to the New World. 

“Ah ha!" you might think. "I know where 
the Incas are. 111 just go down there and take all 
the gold and head back to Europe." 

It can't be done. "We want to convey the 
feeling that the Spaniards must have had, standing 
on the deck of a ship, not knowing anything about 
what was to the west," says Bunten. "Most of us 
know too much about geography to be able to 
experience that feeling. So our game is built on 
the sense of wonder and awe at the size of the 
world that the conquistadors were discovering." 

To try to accomplish that ambitious goal, 
Rushing wrote a random world generator, which 
took about four months. “We tried to do some of 
the more difficult state-of-the-art graphics stuff,” 
says Bunten. “I guess it will be up to the market 
to decide if we succeeded. 

“A lot of strategy games are still keyboard- 
oriented. They leave it up to you to create an am- 
bience. I don't think you should expect people to 
do that. I really think you must present them with 
as complete and visually appealing an environ- 
ment as you can." 

An important element of Seven Cities is inter- 
acting with the natives. That's done through a 
joystick for two reasons, says Bunten. “In the 
first place, it's easy to be nonverbal with a joystick. 
That's the design reason. The other is that the 
natives and the Spanish didn't share a language 
and pretty much had to live off what they per- 
ceived the other to be attempting.” 


unten fears that Seven Cities may be offensive 

to some people's sensitivities. "Many of the 
conquistadors treated the natives horribly,” he 
says. ‘Theirs was an arrogant and prideful 
approach to a society that had its own history and 
roots. 

“But to be historically accurate required that 
we had to include violence. I don't like the idea 
of players hurting other things, but there's no 
alternative or you're forcing your own moral deci- 
sions on an audience that ought to have the choice 
themselves. 


Prentice-Hall 
speaks a language other 


publishers have forgotten. 


PROGRAMMING YOUR COMMODORE 64 IN 
BASIC by Mario J. Eisenbacher. An easy-to-digest 
intro that includes, at each level. new vocabulary, 
lively sample programs, and exercises/answers. Two 
entire chapters on graphics. $12.95 


GRAPHICS FOR THE COMMODORE 64 COM- 
PUTER by Jeff Knapp. This collection of easy- 
to-master programming techniques and BASIC 
programs unleashes amazing graphics. $12.95 


MUSIC AND SOUND FOR THE COMMODORE 64 
by Bill L. Behrendt. How to use the Commodore 645 
Sound Interface Device and how to write programs 
that match the sounds of various hand instruments: 
$14.95 


SPRITE GRAPHICS FOR THE COMMODORE 64 
by Sally Greenwood Larsen. Shows how to produce 
high resolution, color, animated graphics. Twenty-five 
read-to-run sample programs. $15.95 


USING THE COMMODORE 64 IN THE HOME by 
Hank Librach and William Behrendt. Home of the 
future! Twenty original programs for check book keep- 
ing, loan payments, family nutrition, education 
games, and much more. Book/disk available. $10.95 


EASY INTERFACING PROJECTS FOR THE VIC-20 
by James Downey, Don Rindsberg, and William Isher- 
wood. Dozens of interfacing projects written in BASIC 
and specifically designed to maximize the УІС-205 
power. $12.95 


For more information about our computer books and software, write to us at the address below. Dealer inquiries welcome. 
Prentice-Hall, General Publishing Division, Englewood Cliffs, N.J. 07632 


"We guarantee that all our guides are easy to read and simple to apply without the aid of a reference library, a computer salesperson, or a niece who just graduated from МИТ. 


Rated THE BEST educational 
program for the VIC 20TM by 
Creative Computing magazine. 
Commodore 64 version: “This 
is the best typing tutor we have 
seen yet; it can get your 
children touch typing in short 
order and bring an old hand up 
to speed. Includes excellent 
training modules and an 
arcade type mode to liven 
things up and put some 
pressure on; ж ж ж *" INFO-64 


Our customers continue to tell 
us of their success. ... 

1. delighted with my son's 
progress ... he is the only 
one in his second grade class 
who touch types at the computer." 


(58 year old man writes) ... "great, excellent. To me a source 
of great learning ... | just can't express how much | һауе 
enjoyed И!” 

In daily use by schools across the USA. 


"Computer aided instruction at its best" Commander magazine 


TYPING TUTOR + WORD INVADERS 
The proven way to learn touch typing. 
COMMODORE 64 Tape $21.95 
COMMODORE 64 Disk $24.95 

VIC 20 (unexpanded) Tape $21.95 


NEW! 
IFR 


(FLIGHT SIMULATOR) 


DISK OR TAPE 
FOR THE 
COMMODORE 64 
$29.95 


CARTRIDGE 

FOR THE VIC 20 
$39.95 
JOYSTICK REQUIRED 


Put yourself in the pilot’s seat! A very challenging realistic 
simulation of instrument flying in a light plane. Take off, 
navigate over difficult terrain, and land at one of the 4 airports. 
Artificial horizon, ILS, and other working instruments on 
screen. Full aircraft features. Realistic aircraft performance — 
stalls/spins, etc. Transport yourself to a real-time adventure 
in the sky. Flight tested by professional pilots and judged 
"terrific"! Rated "Excellent" by Midnite Software Gazette. 


ШЕШЕН Shipping and handling $1.00 per ВӘ) 
p order. CA residents add 6% tax. Ss 


ACADEMY 
SOR RARE 


P.O. Box 6277, San Rafael, CA 94903 (415) 499-0850 


Programmers: Write to our New Program Manager concerning 
any exceptional VIC 20TM or Commodore 647M game 
or other program you have developed. 


The laws of supply and demand affect whether players buy or 
sell and at what price. 


“Bill and I were real Indian sympathizers 
when we were growing up. We always sided with 
the Indians instead of the cowboys. It just seems 
like such a neat, romantic culture to us, so in tune 
with the earth. Then to write a game where at 
least part of the game is wiping out Indians—that's 
problematic." 

Bunten believes that players will face the 
same moral dilemma that they did designing the 
game. “Тһе player will know that they have the 
power to beat these people, so why not?,” he 
says. "Actually, conquest is efficient, inexpensive, 
and so tantalizing that it's tough to avoid it. But 
the optimal solution is to trade with the natives." 

If M.U.L.E.’s mules and other odd-looking 
characters are endearing to some, they’re gems in 
the rough to Dan Bunten. “It's a little fatuous to 
say that we're really hitting home with the things 
we're trying to deliver," he says. "How much 
impact can a klutzy cartoon character have on 
you? 

"We're in such primitive stages of develop- 
ment. We have a message that we may be at- 
tempting to deliver to the audience, but we don't 
yet have the mechanics of delivering it. We don't 
know the grammar yet. 

“What we're trying to accomplish in any par- 
ticular game is to create such an attractive vision 
or fantasy that people just get sucked into it. One 
of the neatest accomplishments is when people 
start taking metaphors from your games and ap- 
plying them to situations in their own lives." @ 


A TUTORIAL 


A.Learning Experience 
on your Commodore 64 


Navigating The Networks 


Of all the information utilities and data bases avail- 
able to home computerists, four are best known 
to Commodore computer owners: Dow Jones 
News/Retrieval, Delphi, CompuServe Information 
Service, and the Commodore Information Net- 
work (accessed through CompuServe). 

Commodore owners are usually introduced 
to these companies when they buy a modem and 
find that the package contains offers of free mem- 
berships or reduced membership fees for these 
networks. 

With a modem and these bargain member- 
ships, a user has access to an incredible array of 
information and services. Also, you only pay for 
what you get. There are no minimum use require- 
ments, so if you need to be online for only 30 
minutes a month, that’s all you pay for. (There is 
a $3 monthly charge if you choose direct billing 
instead of using a credit card.) 


From Stocks To Poetry 

Dow Jones is oriented almost exclusively to busi- 
ness and finance. With services such as The Wall 
Street Journal on-line, and current stock quotes, it 
is the leader in business services. 

Delphi offers the fewest services because it’s 
new (about a year old). But its newness has ad- 
vantages. It’s not crowded with established ser- 
vices, so there are plenty of opportunities for en- 
trepreneurs to enter the home telecommunications 
market under its network umbrella. And, since 
newer services tend to be more experimental and 
innovative, the more adventurous computer users 
are likely to find something of interest and value 
on Delphi. For example, Delphi has a feature called 
Writer's Corner, where authors can publish their 
works and receive royalties when other users 
read them. Also, Delphi maintains a much more 
informal atmosphere, both in its menus and home 
computing services. 

CompuServe offers the advantage of size, 
with the widest available range of business and 
home services. In addition, it has a whole library 
of documentation at reasonable prices. And 
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CompuServe sells Vidtex terminal software tail- 
ored for the special capabilities of most com- 
puters. 


Special Interest Groups 
CompuServe members can access Commodore's 
Information Network without extra charge. Oper- 
ated by Commodore Business Machines, Inc., the 
network contains Special Interest Groups (SIGs) 
for the VIC-20, 64, PET, and Commodore's busi- 
ness computers. There's also a separate SIG for 
programmers. 

Each SIG comprises a bulletin board, confer- 
ence lines, and several data base access areas in 
which you can upload and download public do- 
main programs. Commodore operates an on-line 
Computer Club and user group which is separate 
from the other SIG services. There is a $10 mem- 
bership fee, for which you get a newsletter, a quar- 
terly catalog for ordering computer supplies and 
software at a discount, and a club access area 
where you can upload and download special club 
programs. 


Accessing The Networks 
All the networks provide their subscribers with 
documentation on how to log on (connect to the 
network), with a toll-free 800 telephone number 
to call if users have problems making the connec- 
tion. Access to Dow Jones and Delphiare provided 
through third-party value-added carriers. These 
companies maintain phone numbers in most met- 
ropolitan areas. Users call these local numbers 
and type in the special code sequence which the 
carrier uses to connect the caller to the network. 
Dow Jones is accessed through the carriers 
Telenet, Tymnet, or Datapac (for Canadian sub- 
scribers). Delphi uses only Tymnet. To access 
CompuServe (and the Commodore network), 
you can use CompuServe's own telephone num- 
bers, as well as Telenet, Tymnet, or Datapac. 
Most networks include the carrier costs in 
their regular charges to users. However, if there 
is a CompuServe number available and you choose 
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comfortable at bonis 


Now your home computer can help you cook, keep your accounts, find an address or 
keep track of your record and book libraries—with first-class software specially tailored 
for the home environment. 


The Home Organizer " series includes a wide range of separate and individual programs for | 
different activities like stamp collecting, personal banking, or home photo and movie 
collections. Each one is pre-programmed with a “page” format planned out by experts to 
make it easy for you to store and retrieve the information you'll want for your special activity. 
You don't have to program anything yourself. Just load the disk and start feeding in your data. 


If you're used to run-of-the-mill home computer software, the speed and simplicity of the 
Home Organizer" series will surprise you. Each program is written entirely in "machine 
language", the most basic computer code. So they search, sort and analyze your data with 
amazing speed. 


The Home Organizer" is fast enough to sort through your household belongings in 
seconds, yet so simple the children can use it to look up a phone number. Choose any or all 
program modules that fit your needs. They make ideal gifts, too! 


( BATTERIES 59, INCLUDED) 
"Excellence in Software" 
For a full color brochure write to: 


Batteries Included, 186 Queen Street West, Toronto, Canada M5V 171 (416) 596-1405 / 3303 Harbor Blvd., Costa Mesa, CA. 92626 (714) 979-0920 


COMMODORE 64 IS A REGISTERED TRADE MARK OF COMMODORE BUSINESS MACHINES. 
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flaster COMPOZET i. you the joy * Voices are developed in the “Audition” mode. (Your song plays con- 


and fulfillment of composing your own classical or rock songs, or even tinuously while adjustments are made to the different computer 
imitating your favorite “Top 40” music. Real “Get-Down-Get-Funky” voices) 

music at the tip of your fingers. With Master Composer™ you'll have full е Help Screens. 

control of the Commodore 64's* sound synthesizer and be able to produce * Tuning Function 


8 A М AUS - * Standard Metronome Speed Control 
all types of music from simple melodies to intricate compositions. Of: Ext анаша тант OS 


* Full library of preset voices for the most common musical in- 
instruments. 

* Full song library 

! 

difficult to stay that way! * Comprehensive user manual with over 60 pages of instructions, 


Features: examples and information. 
е Music files (songs) are easily added to a Basic or Machine Language 


ACCESS’ 


SOFTWARE INC. 
925 East 900 South SLC., Utah 84105 (801) 532-1134 “Commodore 64” is a trademark of Commodore Electronics Ltd. 


манынын аиан 


CAUTION: Although Master Composer™ from ACCESS may be 
the easiest way to compose yourself, continued use has proven it's 


BEACH-HEAD 


"TIheWarGameToEnd Alar Games!” 


-a 


Take command of the hottest new strategic war game ever, BEACH- 
HEAD™ from ACCESS. The battle action is filled with spectacular 3D 
realism and sound effects that would even make Hollywood envious! 

Six separate sequences take you into the heart of battle. Meet each 
one with calculated skill and with a little luck, you just might survive 
long enough to knock out the enemy fortress. 


* Nominated for BEST GRAPHICS AND SOUND award "Billboard 
Magazine, 1984 


MASTER COMPOSER?” Real music 
that you compose. Imitate your favorite “Top 
40” or compose your own, taking full 
advantage of the sound synthesizer of the 
Commodore 64™ 


ACCESS 


SOFTWARE INC. 


SPRITEMASTER:" Spritemaster is 
the finest utility available for multicolor sprite 
animation and game programming. It will 
have you making full color animated objects 
in just minutes. It can also be used as a 
teaching tool for developing artistry and 
creativity. 


NEUTRAL ZONE?" neutral Zone takes 


you to the outer edges of the galaxy, to 
ALPHA IV, a long range early warning station 
whose mission is to detect alien intruders 
from other galaxies. 


925 East 900 South SLC., Utah 84105 (801) 532-1134 “Commodore 64" is a trademark of Commodore Electronics Ltd. 


to use Telenet or Tymnet, you may be assessed a 
surcharge for using the alternate carrier. 

Each of these numbers is a local call, even if 
you're in California calling a computer complex in 
Massachusetts. (If you live outside a metro area 
and must call long distance to a carrier number in 
a nearby city, you are charged the long-distance 
rate to call that number.) 


Facing The First Menu 


АП four networks are menu-driven and allow the 
user to choose the service he wants. Delphi, 
CompuServe, and Commodore also offer the op- 
tion of verbose (complete) or brief menus. You 
can choose a menu with or without explanation 
of menu items and commands, or you can simply 
receive a prompt. Experienced users save time by 
switching to the abbreviated menus or prompts. 

Dow Jones has a different procedure from 
the others in that it doesn't automatically send a 
menu when you log on. After your password is 
verified, you are prompted to ENTER QUERY. At 
this point you can go directly to any service, ask 
for an introductory menu, or go to the main menu. 
A new user would best benefit by typing //INTRO 
for the introductory menu. A welcome screen 
appears, then a menu like this: 


PRESS FOR 

1 Closing Dow Jones Averages retained 

2 Weekly economic update revised on Fridays 
3 News/Retrieval operating hours expanded 
4 Customer Service Information 


Type 4 to get the basic information needed to use 
the network, change your password, and perform 
other recordkeeping chores. When that's com- 
pleted, type //MENU to get the main menu: 


TYPE FOR 
ШСО Current Quotes 
/IDJ NEWS Dow Jones News 
1105 9] Historical Quotes 
|[UPDATE Economic Update 
IWS] Wall Street Journal 
Highlights on line 
/IDSCLO Disclosure II 
/TEARN Corporate Earnings Estimator 
IETS Free Text Search of Dow Jones News 


FOR MORE CHOICES PRESS RETURN, FOR HELP, 
TYPE DATA BASE SYMBOL AND HELP. (EXAMPLE: 
ПСО HELP) 


This is only the first page of the main menu; to 
see the rest, simply press RETURN. 

To select a data base, type two slashes and 
the data base code. 

Dow Jones provides a comprehensive manual 
(without extra charge) which contains all the in- 
formation and sample menus required to use the 
network. 
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Delphi's Guided Tour 


Delphi provides a free manual to each member, 
and also offers an on-line guided tour to give the 
subscriber necessary information. Printed docu- 
mentation consists only of general information 
and a quick-reference card of network commands. 

During the guided tour, instructions are given 
on how to change your password, how to use 
several control characters to move around Delphi, 
how to set screen length and width, and how to 
choose either the brief or verbose prompts. Then 
the main menu is presented. 


Main Menu: 

Bulletin Boards Library 
Conference Mail 
Delphi-Oracle News 

Exit Online Markets 
Financial-Services Profile 

Games Scheduler 
Guided Tour Travel 

Help Writers-Corner 
Infomania 


MAIN» What do you want to do? 


To go to any Delphi service, type the name from 
the menu. The service you select will then offer 
other menus from which you choose particular 
sections of the service. 


CompuServe Uses Numbers 


CompuServe's menu system is more complex, 
with numbered menu items and system page 
numbers. After you log on, the main menu 
appears: 


CompuServe Page CIS-1 
CompuServe Information Service 

1 Home Services 

2 Business and Financial 

3 Personal Computing 

4 Services for Professionals 


5 User Information 
6 Index 


Enter your selection number, 
or H for more information. 


! 

The exclamation mark at the bottom of the menu 
is a special prompt, called a command prompt. A 
GO command typed at a command prompt sends 
you directly to any area of the network, bypassing 
the usual path through several menus. 


The Information Menu 


New users should choose item 5, User Informa- 
tion. This menu appears: 


CompuServe Page CIS-4 
USER INFORMATION 

1 What's New 

2 Command Summary & Usage Tips 

3 Feedback to CompuServe 


The ENDof DINKETY 
DINKDINK. 


nnouncing 
the first computer 
music program that 
actually sounds like 
MUSIC. 
LET'S FACE IT. Up till now, music 


programs for your home computer 
have all sounded, well, pretty lame. 
There were the ones that resembled 
little electronic music boxes, remem- 
ber? And then there were those that 
sounded like so many burps. 

Enter Music Construction Set” 125 
the first music program that really 
makes use of the power of that ma- 
chine you've got. If you're a serious 
student, this means you'll be able to 
work with an intricacy and range of 
sound quality you've never heard be- 
fore on a computer. And if you know 
nothing about music, you'll find some- 
thing even more important. Namely, 
that this thing is simple enough to 
be a lot of fun. 

Take a good look at this screen 
because it, you, and a joystick are the 
whole story here. 

That's you at the right end of the 
staff of notes — the little hand. Move 
the joystick, and you move the hand. 
Use it to carry notes up to the staff. 
Lay in rests, signatures, clefs, then point 


MUSIC CONSTRUCTION SET is now 
of up to three notes each, Apple is a regis 
Campus Drive, San Mateo, CA 94403 or call (415) 571-7171 


able for Apple Il, 1+ Ile, and Commodore 64 computers. The Api 


to the little piano in the lower right 
and listen, because you'll hear the 
whole thing played back. 

Move those little scales in the mid- 
dle up and down to vary the music's 
speed, sound quality, and volume. Use 


MUSIC 


Construction SET 


ELECTRONIC ARTS" 


on, with a Mockingboard™ plays chords of up to six notes each. The Commodore 
red trademark of Apple Computer. Commodore is a registered trademark of Commodore Business Machines, Inc. For more information about Electronic 


the scissors to cut out whole measures, 
then use the glue pot to paste them 
in somewhere else. Got a printer? 
Great. Print the score out and show it 
off to your friends. 

But what if you're not up to writing 
your own stuff yet? No problem. 
There are twelve pieces of music al- 
ready in here, from rock 'n roll to 
baroque. They're fun to listen to, and 
even more fun to change. (Apologies 
to Mozart.) 

The point is, the possibilities are 
endless. But if you're still skeptical, 
visit your nearest Electronic Arts dealer 
and do the one thing guaranteed to 
send you home with a Music Con- 
struction Set in tow. 


Boot one up. Point to the piano. 
And listen. 


sion plays chords 


Arts, write us at 2755 


4 Order Products, Guides, etc. 
5 Change Terminal Settings 
6 Change Your Password 
7 Billing: Your Charges, Rates 
Options, Making Changes 
8 Logon Instructions & Numbers 
9 Electronic Bounce Back 
Last menu page. Key digit or M for previous menu. 
! 


If you're a new subscriber, you'll go to this menu 
often to refresh your memory about commands 
and prompts, to check on how much money you're 
spending, and to ask CompuServe questions 
about confusing aspects of network services. 

Select item 5, Change Terminal Settings, to 
have CompuServe configure its output for your 
computer. For example, choose 22, 40, or 80 char- 
acters per screen line, or have the text displayed 
in all capitals or in upper- and lowercase. 


Changing Your Password 


Select item 6 to change your password. You should 
do this at least once a week. A password is like a 
credit card number. If other users find out what it 
is, they can use your account and you'll get the 
bill. So never type your password while on-line, 
except when logging on or changing it here. 
Another important selection on this menu is 
item 4, used for ordering CompuServe's manuals. 


The Commodore Network 


After you've finished with these recordkeeping 
chores, you may want to visit the Commodore net- 
work. The simplest way to get there is from the 
main menu. Let's suppose you have finished chang- 
ing your password from the User Information menu 
(Page CIS-4). At the ! prompt, type M to get back to 
the main menu (Page CIS-1). When you see the 
main menu ! prompt, select item 3, Personal Com- 
puting, then press RETURN. 

You will receive the Personal Computing SIGs 
menu (Page РС5-50). At the prompt, type 15, the 
selection number for Commodore. You will receive 
the Commodore main menu, Page PCS-160. Use 
this menu to access any of the Commodore SIGs. 

Another, more direct, route to the Commodore 
network is to type GO PCS-160 at any ! prompt. 
This goes directly to the main Commodore menu 
from anywhere in CompuServe. To go directly to 
the 64 SIG, enter GO PCS-156, and for the VIC SIG, 
GO PCS-155. 


The Bulletin Board 


The most popular services for beginners on the 
SIGs are the Bulletin Board and the Conference 
line. On the Bulletin Board are several hundred 
messages on a wide variety of subjects. Areas are 
set aside for general messages, messages from 
and to software and hardware vendors, and for 
Hotline questions to Commodore, which are then 
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answered on the Bulletin Board. 

Commodore provides on-line instructions 
and a simple line editor for users who want to 
leave messages. 


Control Characters 


There are several control characters which are 
helpful for typing in messages and other text. 
Most are common to all telecommunications; a 
few are used differently by different systems. 
Control characters usually show on the screen as 
an up-arrow and a character. For example, CTRL- 
V, represented by t V, is sent by holding down 
the CTRL key and pressing V. The control charac- 
ters cause the network software to interrupt what 
it's doing and take some other action. Some of the 
most frequently used: 


ТА Tells the host computer to stop transmitting at the end of 


thecurrentline. 


Aborts whatever is being transmitted and jumps to the 
next prompt. Used on Delphi, instead of CTRL-P. 


ІР Aborts whatever is being transmitted and jumps to the 
next prompt. You can use this to jump past the intro- 
ductory bulletins on CompuServe. 


Tells the host computer to resume transmitting. 

Displays the line you are currently typing (Delphi). 

Tells the host computer to stop transmitting immediately. 
Deletes the line you are currently typing. 

Displays the current line you're typing (CompuServe). 


то 


10 
ÎR 
175 
tU 
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The Conference Line 


The Conference service (CO) is very popular, but 
it can be confusing until you learn the quirks and 
commands. Although formal conferences are 
held on CO, the name is misleading because most 
subscribers use CO as a kind of chat service, simi- 
lar to a CB radio band. 

When you select CO, you see a series of short 
bulletins on what's happening on CO in the near 
future. CO also offers some pointers on frequently 
used commands, and outlines the etiquette to be 
used on-line. It's good practice to download these 
bulletins and command descriptions, and keep 
them handy while you're on-line. 

Next month we'll discuss downloading and 
uploading in detail. For now, let's look at two 
simple ways to download this information. If 
your terminal software has a feature that dumps 
the screen contents to the printer, you can wait 
until your screen is nearly full, then press CTRL-A. 
Next, press the proper key to print the screen. 
When the transfer is completed, press CTRL-Q to 
resume transmission, press CTRL-A again when 
the screen is nearly full, dump it to the printer, 
and continue this process until all the information 
is printed. 

The second method is a simple matter of open- 
ing the buffer in your terminal software before 
accessing the CO. (Consult your terminal software 


"The Home Accountant 
even flags transactions for tax time. 
And that's a big time-saver 
because I can transfer information 
to The Tax Advantage" program 
and easily figure out what I owe.” 


“Popular Computing says 
The Home Accountant 
does just about everything 
you'd ask of a personal 
finance package."* 


“Му company has 
5 checking accounts, 
6 business credit cards 
and 3 money market 
funds to keep track of. 
The Home Accountant 


“Үош mean you can use 
The Home Accountant 


"The Home Accountant 


for business, 
too?!” 


“Absolutely. 


my consulting firm 
without it.” 


“The Home Accountant 
is great for 
realistic budgeting.” 


"I'm so glad you brought 
it home. I never thought 
that creating a budget 
and managing money 


could be so easy." | 


* Popular Computing, November, 1982 
t Apple Softalk, April, 1982 


Wouldn't want to run 


| full-scale color graphi 


is the #1 best-selling 
home finance package 
in the world.” 


“Softalk Magazine 
says it’s the most 
thorough and 
powerful program 
of its kind.” + 


“I agree.” 


“You can create trend analysis 
graphs for each budget 
category, so you can make 
isual comparisons of where 

you stand financially.” 


“And you can do it in 


my finances.” 


“The Home Accountant 
will even print a 
personal financial statement 
and net worth statement. 
Keeps me right on top of 


makes it easy.” 


“It automatically prints 
my checks. And gives 
them a very 
professional look.” 


“It has up to 200 budget categories 
so I have all the flexibility I need.” 


Everyone's talking about The Home Accountant: 


Is it because it's the #1 bestselling 
home finance package in the world? Or 
because it's extremely thorough and 
powerful and easy to use? Or because 
it's great for home and business use? 
Or because it has up to 200 budget 
categories and handles up to 5 
checking accounts? 

Yes. But there are a lot more reasons 
why people buy The Home Accountant. 
And why you will, too. 

Because The Home Accountant can 
literally save you hours of time. And 
take the headache out of handling your 
finances. Whether it's setting up a budget, 
cataloging your expenses, balancing 
your checkbooks or handling your 
credit cards and money market funds. 
For personal or business use. 


The Home Accountant and The Tax Advantage are registered trademarks o 


al Software. aye 


The Home Accountant will even 
print net worth and financial state- 
ments. Not to mention being a lifesaver 
at tax time. Especially when you're able 
to transfer information onto Continen- 
tal's The Tax Advantage" program and 
figure out what you owe. Quickly. 

In short, The Home Accountant is the 
most effective software program there 
is for managing your money. And man- 
aging it easily. 

Stop by your Continental Software 
dealer today and pick up The Home 
Accountant. You'll see what everyone's 
talking about. 

Тһе Home Accountant is available 
for Apple II/IIe, IBM PC/XT, Atari 
400/800/1200XL, Osborne? TRS-80 
Models III/4, Commodore 64, Texas 


Instruments Professional, Zenith 
2-100/110, Compaq and KayPro compu- 
ters. Actual budget capacities will vary 
with each computer. 


For your free 64 page booklet, “Tips 
For Buying Software,” please write 
Continental Software, Dept. GAZ, 
11223 South Hindry Avenue, Los 
Angeles, CA 90045, 

213/417-8470. 


Continental | 
Software 


A Division of Arrays, Inc. 


documentation for the proper procedure.) Every- 
thing that appears on screen will also be stored in 
the buffer. When all the information has been 
transmitted, close the buffer. Depending on the 
capability of your software, save the information 
to disk while on-line or after logging off. 

But before trying either of these methods, 
read your terminal software manual carefully. Any 
good program will include a feature that automat- 
ically sends the control characters, captures in- 
coming data in a buffer, and stores it to disk. 


Learning To Talk 


After receiving this introductory CO information, 
you will find yourself on Conference Channel 30. 
If anyone else is on-line, messages like this will 
scroll up your screen: 

(30,Blackfoot) I see what you mean. But can you use 

the cassette recorder... 

(30,Blackfoot) and the disk drive at the same time? ga 

(30,SamR.) Yes, no problem. ga 

(30,Blackfoot) Thanks. I'll try it. ga 

In this conversation between two users, the 
information in parentheses is the conference chan- 
nel number and the user's name. Users have a 
choice of using the name listed in their Compu- 
Serve account or of using a handle (pseudonym), 
as most CB radio operators do. This option is also 
useful when two or more people share an account 
on the network. Each person can use his or her 
own name while on-line. (To change your handle, 
type /HAN on a new line. At the prompt, type in 
your chosen name and hit RETURN.) 


On-Line Etiquette 

Blackfoot has typed ellipses (three periods) in 
her first line. This means she has more to say. At 
the end of her second line, she has typed GA 
(Go Ahead). These codes are simple but essential 
for other users to know whether it's OK to send 
their comments without interrupting the current 
"speaker." 

When several users are on CO, it's common 
to see several conversations carried on at the same 
time. When that happens, users tend to start a 
remark with the name of the person they're talking 
to, like this: 


(30,Blackfoot) Sam R. => I see what you mean. 
But can you use a cassette... 


Talking Back 


Тһе most confusing aspect of CO for beginners is in 
trying to type in their comments while other com- 
ments are scrolling up the screen. Whatever you 
type will appear mixed up with the incoming com- 
ments. For example, if you try to type: 


Hello, my name is Clyde 
your screen might look like this: 
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He(30,Blackfoot)llo,Sam R.my = ›1 
seenawhat me isyou mean.Clyde 
АП this gibberish is only on your screen; other 
users can't see what you're typing until you hit 
RETURN. 

There is no real remedy for this jumble. The 
best solution is to avoid looking at the screen while 
you're typing. If you get lost and can't remember 
what you typed last, type CTRL-V to redisplay 
your line, free of the gibberish. If you get 
hopelessly confused, type CTRL-U to erase the 
incomplete line. When you finish typing your 
comment (less than 80 characters), press RETURN 
and your message will be transmitted to the other 
users. 

It doesn't take long to get the hang of this 
unorthodox communication method, and the 
reward of instant communication with other users 
is well worth the initial confusion. 


Conference Commands 


Another tricky area for beginners is the use of 
commands in the CO section. There are three 
modes of communication on Commodore's CO. 
The default mode is open communication; every- 
one can see everyone else's comments. The second 
mode is /TALK, for private conversations between 
two users. The third mode is /SCRamble, in which 
several users can have a private conversation. 

To use these commands while in CO, type 
them on a line alone, then press RETURN. If you 
put any character, even a space, in front of the 
slash, it won't work. (It will be sent as a comment 
rather than a command.) If you find this con- 
fusing, just type a CTRL-U before typing the com- 
mand. This will delete anything you may have 
typed by mistake. Then type the command and 
RETURN, and you should get the desired result. 

Conferencing modes on Delphi are different 
from CompuServe. The default mode is private. 
To join a conversation you must /PAGE one of the 
members of a group and get the group scramble 
code. Then you must /JOIN the group. There is 
no open conferencing on Delphi, and the com- 
mands are different, but the results are the same. 


А Few Quirks 


Besides the special conditions on individual ser- 
vices, the networks have a few general quirks 
which can be confusing if you're not expecting 
them. The strangest is a tendency for the charac- 
ters on your screen to suddenly stop scrolling for 
no apparent reason, then start up again. This 
happens because thousands of people are using 
the system at once, and sometimes it gets a second 
or two behind. This occasionally happens on all 
the networks, but is most noticeable during peak 
evening hours on CompuServe. 

CompuServe has become so popular that it's 


Quality Software that Outshines the Rest 


Programs for the Commodore 64 


dMOS" 


Database Management 
Operating System 


The BEST data base management tool 
for the collection, arrangement and display of 
alphanumeric data. 
A unique pattern matching and searching capabilities 
make dMOS"" the easiest DB system available 
on the market. 
Features: 
e Map search technique to achieve a “logical AND", 
while searching between fields. 


е Display records-found, or NOT found by a search. 
е Rearrange fields. 

е Suppress fields and field titles. 

е Insert short (10 character) text. 

* Selectively print records. $3995 


and announcing. . . 


Missing Key.. Phone Boss” 


A reset System 
Restores your BASIC Program. 


After programming for hours you 
press RUN for a final check of your work — 
the computer locks up. You press RUN, STOP. . . 
nothing — you press RESTORE. . . nothing — you 
look for the missing key but it isn't there. You 
have to turn off your computer and lose hours of work!! 


Now Add the Missing Key™: 


* Press the "Missing Key™” and the computer 
resets itself from any lockup, and your BASIC 
program is restored. 

* Load and run the program included. re Phone рген; 

* Takes nothing away from your computer, neither AE M 
memory nor a plug-in port. 

* Attaches to your C64 keyboard or any other 
convenient location. The user has complete control! of 

* Will not void your CBM warranty. $29?5 15 category titles Бе entries. $2995 


Personal Phone Directory Program 


Designed to store and organize 
your personal phone listings. 


PHONE BOSS 
Aq 


Software by SoftPeople т Programs for the Commodore 64 тш Connecting People with Great Ideas. 


Dealer Inquiries Invited 
1-800-447-3273 

Special P.O.P Packages 
& Prices Available 


SoftPeople Inc. 


2042 Marshall Ave. St. Paul, MN 55104 (612) 644-1551 


by Softpeaple, Inc. 


in a constant race with its users, trying to expand 


its capacity to keep up with the growing numbers 


who log on every evening 

When the network falls behind, you may 
experience a delay in moving from one service to 
another. Delays of up to five minutes are not 
uncommon. 


No Dead Ends 


Another problem for new users is the sense of 
wandering in a labyrinth. Many beginners worry 


needlessly about getting lost in the maze of menus, 


of wandering into a service that charges extra for 


access and running up a huge bill. Or, they worry 


about what happens if they accidentally hang up 
without properly logging off. 

First, it's difficult, if not impossible, to get 
into an extra-charge area without knowing it. 


Many of the services require users to sign up sepa- 


rately from their network membership, and un- 
authorized access is not possible. There are ser- 
vices, such as the Academic American Encyclo- 


pedia (AAE), which can be accessed without prior 


arrangement. However, the AAE menu includes 
a notice that the service involves a $2 per hour 
surcharge. 

There are no dead ends on the networks. 
Even if the network software crashes (a very rare 
OCCHBODED) or if a user gels доп but Barbare 


scrolling up the screen, the option is always there 
to simply disconnect the modem from the phone 
line. 

If a user disconnects from the network with- 
out properly logging off (either by mistake or if 
the connection is broken by a telephone line mal- 
function), CompuServe's software will wait for 
up to seven minutes, then log the user off. During 
very busy periods, this may take up to 20 minutes. 
The user is charged for this time. 

If you have questions or ideas about subjects you'd 
like to see covered in this column, write to: Home Tele- 
communications, COMPUTE's GAZETTE, P.O. Box 
5406, Greensboro, NC 27403. Or you can send me 
electronic mail. My CompuServe ID is 75005,1553. 
For Delphi, it's BOZART. 

Dow-Jones News/Retrieval 

P.O. Box 300 

Princeton, NJ 08540 

Delphi (General Videotex Corp.) 

3 Blackstone Street 

Cambridge, MA 02139 

CompuServe Information Service 

5000 Arlington Centre Boulevard 

P.O. Box 20212 

Columbus, OH 43220 

Commodore Computer Club 

P.O. Box 69 

Wood Dale, IL 60191 


Commodore® owners: 
"THE FUTURE IS HERE. . ' 


v. 


N 
interface plugs into the 
number. It will provide 


Will your printer interface pass the Commodore® printer test? We don’t think so!! Ours will. 
The CONNECTION" is truly the ultimate parallel interface for the VIC20™/COMMODORE 64™. This fully intelligent 


disk (serial) socket just like the standard printer and you can easily assign it any device 
virtually TOTAL EMULATION of the Commodore® printer including all standard graphic 


characters (normal or inverse), column tabbing, dot tabbing, graphic repeat, dot addressabl iphics, cursor 
up/down mode, and more. It responds to all of the standard commands (PRINT -#, ОР E 
insure software designed for the Commodore? printer will operate with the CONNECTION Us 
TOTAL TEXT MODE, or purchase our Universal! CONNECTION that works with virtually E 
WHEEL OR MATRIX PRINTER with standard Centronics Parallel: configuration. To take full 
your printer's special features, please specify the printer type. Available for STAR MICROI 
EPSON, OKI, NEC, PROWRITER, BANANA, SEIKOSHA, RITEMAN, GEMINI10? 
ONLY $119.00 Complete. (Additional ROMs are available if you should ever change printers). 


THE CONNECTION PROVIDES: 

1) A 2K Printer buffer. 

2) Full LED Status indicators. 

3) Complete Built in self test. 

4) Printer reset switch. 

5) Adds Skip over perf, margin set, programmable line length, program 
list format commands to your printer. 

6) No need for extra cost, special tape loader for graphics. 

7) All features easily accessed from software. | 

8) ASCII conversion, TOTAL TEXT, EMULATE, and TRANSPARENT Modes. 

“Note: Only the Universal CONNECTION will not provide 100% Commodore graphics. 


Dealer And 
Distributor 
Inquiries 
Invited 


ORDER FROM 


micro 
ШАГЕ” 


1342B RT 23 
BUTLER, NJ 07405 201-838-9027 


Get more out of your Commodore with 


COMPUTE · 
GAZETTE 


For Owners And Users Of Commodore VIC-20" And 64" Personal Computers 


More programs 


Programs to help you balance your 
checkbook, store your addresses, keep 
tax records, manage your personal 
d utes You can create your own pro- 
grams and games, improve your word- 
processing, spreadsheets and data 
base management, load and run faster 
with 64 Searcher, VIC/64 Program Ше- 
saver, Quickfind, Word Hunt, Disk Menu, 
VIC Timepiece, Automatic Proofreader 


More fun 


More savings 


You can save up to 4096 off the news- 
stand price of COMPUTE!'s Gazette by 
subscribing now. All you do is mail the 
coupon below or the postpaid card 
bound into this issue. But don't delay! 
Subscribe now to start receiving every 
issue of COMPUTE! Gazette. 


Martian Prisoner, The Viper, Skydiver, 
Snake Escape, Demon Star, Cyclon Zap 
and Oil Tycoon are just a few of the 
ready-to-run games you'll find exclusive- 
ly in СОМРОТЕ!5 Gazette each month. 
Just type in the programs and watch 
your screen explode with colorful new 
computer game excitement. 


Yes! Start my subscription to 
COMPUTE!'s Gazette at big 
savings off the newsstand price: 
О 1 year. $20—Save $10 

O 2 years $36— Save $24 

З years $54— Save $36 


More challenge 


Ready to tackle more advanced projects? 
In СОМРОТЕ!5 Gazette you'll learn How 


to Use Tape and Disk Files. How to Pro- Name 

gram the Function Keys. Writing Trans- 

portable Basic. How to Make Custom b ө Address 

Graphics Characters. New Ways to Mo re Uy! ng n 

Enliven Programs with Sound. One Touch е Giy 

Commands for the 64. How to use guidance Se Zip 

Machine Language. Speeding up the 7 

МІС 20—and much тоге! You'll profit from comprehensive reviews Payment enclosed ГІ Bill me 
Children will learn and develop of everything from data-quality cassette Charge my 

new skills with States & Capitals Tutor, tapes to software to graphics plotters and Visa O MasterCard ІП Am. Ex. 

Wordmatch, Munchmath, Wordspell, modems. Virtually anything that's compat- ГА 

Connect the Dots, Aardvark Attack and ible with your Commodore is reported Account No. Exp. Date 

Alf i i j i PUTE!" tte. With thi COMPUTE”s CALL TOLL FREE 
abug. Computing for Kids, a regular on in COMPUTE! s Gazette. With this СОТЫ ры 500.294.0008 


monthly feature, will uncover new ways 
to involve your children in computing. 


kind of expert help, every computer pur- 
chase you make can be the right one! 


P.O. Box 961, Farmingdale, N.Y. 11737 


Mark Doyle 


This two-player game for the Commodore 64 
or VIC-20 with memory expansion (any 
amount) makes tic-tac-toe a real challenge. 
Joysticks are required. 

ERATE] 


Sound, color, and a three-dimensional playing 
board add new excitement to this old familiar game. 
After the title screen is displayed, both players 
enter their names and how many games they 
want to play. A multicolored three-dimensional 
tic-tac-toe board then appears on the screen. 

The player with the joystick in port 1 (64 ver- 
sion) goes first. Since the VIC has only one joystick 
port, players must take turns with the joystick in 
the VIC version. 

To move the cursor, at the top left corner of 
the board, push the joystick left or right. When 
you get to the desired location, push the fire button 
and your marker will appear under the cursor. If 
there is already a marker in the space, a low noise 
will be heard and you will have to go elsewhere. 


Winning Combinations 

To win, you must get three of your markers ina 
straight line before your opponent does. They 
can be on one of the boards, or a combination of 


the three boards going diagonally or up and down. 


When you get a tic-tac-toe, your three pieces 
flash different colors and the winning sound is 
heard. The board is then cleared, and, if you 
specified more than one round in the beginning, 
you play again. If not, the score is displayed and 
the game is over. 

If you don’t want to type this program in, I'll 
be glad to make a copy (64 version only) for you. 
Send $3, a blank cassette, and a self-addressed 
stamped mailer to: 

Mark Doyle 

3755 Lemire Lane 

Sebastopol, CA 95472 
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АММА S TURN 


Mind. 


Anna is about to win this round (64 version). 


3-D Tic-Tac-Toe challenges you to think in three dimensions 
(VIC version). 


See program listings on page 177. @ 


SOFTWARE ARTISTS? 


TO MAKE THE FIRST BASKET- ; 
ТО МАКЕТНЕНЕЗТ ВАЗКЕ" How we got this years hottest sports game out of 


real thing, ithelpstostartwith two guys. two rather inexperienced designers. 
who know what the real thing feels like. қ — A 

Enter Larry Bird and Julius Erving. 
Bird — the hustler, the strong man, 
deadly from outside. Erving — The 
Doctor, maybe the most explosive 
player in the history of the game. 

We talked to them, photographed 
them in action, studied their moves and 
their stats and their styles. Then we 
set out to create on computer disc an 
event which may never happen in real 
life. We put the two of them together 
on a dream court of light, for an elec- 
tronic afternoon of one-on-one. 

It wasn't easy. When 
they talked, we listened. 
When they criticized, 
we made big changes. 
When they gave sug- 
gestions, we took them. 

And it shows. This 
thing is absolutely un- 
саппу. You actually 
take on all the skills and 
characteristics of Bird 
or The Doctor — their 
own particular moves, 
shooting abilities, even 
strength and speed. 

You'll meet with 
fatigue factors, hot and 
cold streaks, turn- 
around jump shots, 
and 360-degree slam 
dunks. But theres some whimsy in 
here, too—a funny referee, a shattering 
backboard, even instant replay. 

Its called Julius Erving and Larry Bird 
Go One-on-One.” You're Bird. Or you're 
The Doctor. And that's the last deci- 
sion you'll have plenty of time to make. 


Julius Erving and Larry Bird Go One-on-One is now available on diskette for Apple II, I+, and Ile computers. Apple is a registered 
trademark of Apple Computer. To find out more about Electronic Arts and its products, write us at2755 Campus Drive, San Mateo, CA 94403 
or call (415) 571-7171. Fora free catalog, send a stamped, self-addressed #10 envelope. Also available for the Commodore 64. Comingsoon on 
IBM and Atari home computers. 


ELECTRONIC ARTS" 


Castle 


Dungeon ”” 


Dave and Casey Gardner 


Bombs with short fuses and 
blind monsters add urgency 
and danger to this all-graphics 
adventure game for the unex- 
panded VIC and the Commo- 
dore 64. Joystick required. 


Your quest is to find three 
bombs hidden in the rooms 
and corridors of the castle 
dungeon. They were placed by 
the evil wizard who is trying 
to destroy the castle. 

He also put nine beasts 
in the rooms to guard the 
bombs. Luckily for you, the 
beasts are blind and will attack 
only if you bump into them. 
If you are carrying the en- 
chanted sword when you fight 
the beasts, you can defeat 
them. You will also need the 
magic key to open the locked 
doors. 


A Light And 


Levitation 


On your search through the dun- 
geon you will be carrying à light 
which is only bright enough for 
you to see the area immediately 
around you. If you move too 
fast, you might fall into a bot- 
tomless pit and be lost forever. 
By standing next to a pit and 
pressing the L key, you can in- 
voke a levitation spell which will 
allow you to cross over the pit 
without falling in. 

The fuses on the bombs will 
burn for only five minutes (three 
minutes for the 64 version). If 
you haven't found all three by 
that time, they will explode and 
the castle will be destroyed. Each 
time you play, the wizard will 
place the various objects in dif- 
ferent locations. 

To save memory, the VIC 
version of the program is in two 
parts. The first part (Program 1) 
displays the title page and in- 
structions and defines the pro- 
grammable characters used in 
the second part. 


SUMMER GAMES. 
WHY WATCH THE OLYMPICS 


WHEN YOU CAN BE IN THEM? 


| SR 


You're an Olympic athlete competing in eight key events at the 
Summer Games. How well can you score in track, swimming, diving, 
shooting, gymnastics and more? So realistic, there's even an opening 
ceremony and awards presentation after each event. 

Unlike other ^Olympics-Like" games, Summer Games has incredible 
realism, superb state-of-the-art graphics and sound effects (including 
national anthems from 18 countries), and it is a true action-strategy game. 
In each event you must plan and execute your game strategy in order to 
maximize your score. It is not just a matter of how fast you can move 
the joystick. 


So change into your running shoes, Ei yx 
grab your joystick and GO FOR ži 
THE GOLD! COMPUTER SOFTWARE 
One or more players; joystick controlled. Strategy Games for the Action-Game Player 


А Special Filename 


Type in Program 1 and SAVE it. If you are using a 

Datassette change ,8 in line 28 of Program 1 to 1.) 

Then type in Program 2 and SAVE it as "D". 
Here are outlines of the VIC programs: 


Program 1 (VIC Loader) 

Line(s) 

Clears the screen and lowers the top of memory 
Defines variables for sounds and the screen 
Display the title page 

Playatune 

Complete the title page 

Display iristructions 

Randomizes (so each game will start differently) 
Store character information in high memory 
Start LOADing Part two 

Title page DATA 

Character DATA 


24-25 


30-43 
44-49 


Program 2 (Main VIC Program) 
Line(s) 
Initialize variables 
Fills the screen with black spaces 
Place the maze 
Places doors 
Places room floors 
Places bombs 
Places beasts 
Places key 
Places sword 
Places pits 
Chooses starting point, sets the clock to zero 
Reads joystick 
Checks if time is up 
Set direction 
If wall in way—stop 
Sword? 
Beast? 
Doorand no key? 
Key? 
Levitation spell? 
Pitand no spell? 
Pitand spell? 
Bomb? 
Ifnot moving jump ahead to Line 44 
Light up area around player 
Ifkey or sword found—make sound 
If player fell in pit—jump to ending sequence 
If player levitated over pit—redraw pit 
Cancels levitation spell 
_ Makes player movement noise 
Darken area just vacated 
If third bomb found—jump to ending sequence 
Doitagain 
Successful quest ending 
Unsuccessful quest ending 
Maze DATA 
Door DATA 
Room floor DATA А 
Subroutine for randomly placing objects 
Sound subroutine for sword and key 
Sound subroutine for locked door 
Sound subroutine for bomb found 
Sound and ending subroutine for falling in pit 
Subroutine for fighting beast 
Sound subroutine for levitation spell 
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The dungeon is dark and you've encountered a monster 
(VIC version). 


j 


| 


пи "n 
du 


= 

Е = == === 
Е 

z 

* 


н 
nun 


If you lose, the maze is revealed (64 version). 


We would like to thank Don Brunner and 
Todd Andrews of Rose City Computer Associates, 
Newark, New York, for their technical assistance 
in preparing this program. 

The joystick reading routine is from “Тһе 
Joystick Connection" by Paul Bupp and Stephen 
Drop (COMPUTE! magazine, May 1982). 

If you would like to save the trouble of typing 
in and debugging the programs (VIC version only) 
send $3, a blank tape, and a stamped, self- 
addressed mailer to: 

Dave Gardner 

2342 Barnes Road 

Walworth, NY 14568 


See program listings on page 157. @ 


COMPUTE!'s Gazette 


Toll Free Subscription Order Line 


800-334-0868 
In NC 919-275-9809 


PUZZLEPANIC. 
KEN USTON THINKS HE CAN DRIVE YOU CRAZY. 


бо you think strategy and challenge. Compared to 
there's no puzzle too PuzzlePanic, Rubik's Cube'is child's 
tough for you and no play. So put on your thinking hat, 
video game you cant grab your joystick, get ready for the 
%, % [:] beat. Welcome to contest of your life, and let Ken Uston 
PuzzlePanic— The drive you crazy. 


computer game that’s sure to have you One player; joystick controlled. 
crying “uncle” Designed by Ken Uston, 

blackjack and arcade game player extra- A 

ordinaire, PuzzlePanic takes you through LG Ай EDYX. 

49 increasingly difficult screens based _ EE COMPUTER SOFTWARE. 

on seven different games of action, logic, ^ Strategy Games for the Action-Game Player 


Revenge 
Of Cyon 


Mike Reinman 


Save Earth from the invading Cyon ships. 
Originally written for the VIC-20, we've added 
a version for the 64. A joystick is required. 
ee) 


"Revenge Of Cyon” is an action game for the VIC 
and 64 in which you try to save Earth from the 
invading Cyon Empire. Using the joystick, you 
must intercept the Cyon ships before they reach 
the ground. Do this by moving the cross hairs 
over each ship and pressing the fire button. You 
are given seven shots at each ship. When a ship is 
destroyed, the number of shots used and the 
number of seconds you took to get it will be 
displayed. 

At first, the ships descend one at a time. But 
after the first six ships, the Cyons get smarter and 
send down two ships at one time. If you clear 11 


нете c comes the new naon of КҮ 5 


EUM 


program series for the 64. 


a A 64 


Your personal professional address-file-system. Up to 620 
addresses per disc in direct access. Including 5 extra lines for 
individual text/record. Totally eee e етенсе 
Powerful editing and back-up facilities. Ly $60 


ом! 
Several hardcopy features. = 


PLACE YOUR CHECK OR MONEY ORDER NOW! 


ÉLADREVAGT. 


` 


NT 20 


SM SOFTWARE INC. 252 Bethlehem Pike Colmar. PA 18915 


Th 


Here comes the new generation Gi SM's 


B UE 


rogram s series 3 for the 64. 


This index-sequential file manager gives you a new dimension ~ 
on direct access files. Up to 40 keys, various length for each 
record and up to 10 files can be handled at the 
same time by this sophisticated module. How could your 
programs survive without SM-ISM? 


PLACE YOUR CHECK OR MONEY ORDER NOW! 


| 
„И 7223 


NS rt 


SM SOFTWARE INC. 252 Bethlehem Pike Colmar. PA18915 


screens, Earth is saved and you win the game. If 
the ships reach the ground three times, Earth will 
be destroyed and you will be rated on your 
performance. Six difficulty levels are available, 
ranging from simple to impossible. 

A point of interest to beginning programmers 
is that FOR-NEXT loops will execute much faster 
if you omit the variable in the NEXT command. 

See program listings on page 161. @ 


It took two shots and four seconds for a direct hit inthe VIC 
version of “Revenge of Cyon.”” 


ДАКЕ 
BREAK! 


— = 
[oem —— ОТТІ 
= 


WITH NIGHT MISSION 


PINBALL 


You deserve the best. You’ve earned it. Now reward yourself with a session of Night Mission PINBALL, 
the most realistic and challenging arcade simulation ever conceived! m Stunning graphics and dazzling 
sound effects put Night Mission PINBALL in a class by itself. Game features: multi- 
ball and multi-player capabilities, ten different professionally designed levels of play, 
and an editor that lets you create your own custom modes. a So take a break with 
Night Mission PINBALL from SubLOGIC. Winner of Electronic Games magazine's 
1983 Arcade Award for Best Computer Audio/Visual Effects. | 


See your dealer... ЗЛОСІС 


or write or call for more information. For direct orders please add $1.50 for z 
shipping and specify UPS or first class mail delivery. Illinois residents add 5% Corporation 
sales tax. American Express, Diner’s Club, MasterCard, and Visa accepted. 713 Edgebrook Drive 


Order Line: 800/637-4983 а ета 


The 
Frantic 
Fisherman 


David Lacey 


Idly floating in your boat, waiting for the fish | 
to bite, is a fine way to relax. In this game, 
however, an angler's dream becomes a night- 
mare when sharks get the notion that you're 
the bait and thunderclouds threaten you with 
gargantuan raindrops. It's good you remem- 
bered to bring your shark swatter and an um- 
brella. For the VIC and 64. 


The fish are biting, and you've managed to catch 
a few. But suddenly you notice the sky is cloudi 
over, and to make things worse, ravenous sharks 
begin to circle your boat. ы 
The object of “Frantic Fisherman” is to sur- ~ 
vive. You score points by clubbing the sharks 
with your bat and blocking raindrops with your $m 
umbrella. You start with three fishermen. Ea 
time a shark or raindrop hits the boat, you losé 
the boat and one fisherman. However, a new 
fisherman is awarded for every 2,000 points.. 
Three keys are used to control movemi 
move back and forth, use the less than ( « ) 
greater than (> ) keys. The space bar serves tw; 
functions. When sharks approach, it сопіто15 
club. If a raindrop is falling, it controls the 
brella. You can use the shark swatter as ma =| 
times as you like. The umbrella, though, 
lifted only three times for each raindrop. 


Controlling The Frenzy я 


If you think the game is too fast ог slow, you dàn 

make the fisherman more (or less) frantic. % 
VIC users can alter the speed by changing the 

variable DE in line 30 of Program 2. To add more 

fishermen, increase the value of GL in line 100. 
The bulk of the 64 version is written in 
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Give wings to your ima 


= А, ci 

and voice to your adventure | ( 

Legendary adventurer, rider of the magic E rotector of 
the beautiful Andromeda you are Perseus in (һ%пем Tymae Talkie 
computer game Pegasus and the Trials of Perseus. Үо@ must penetrate 
the temples of the fearsome Titans and defeat them in Mortal combat. 
The sage advice of Zeus, spoken in riddle, holds the key to yotir Survival.” 
But the talons of a screaming harpy тау seal your doom. Life һа106-угаТһгеай 
in the challenging world of the gods. 

Pegasus, and all the Tymac Talkies, provide speech without expensive add-on 
hardware. Combine that with dazzling graphics, lifelike animation, and 3-D effects— and Ne 
you have sights and sounds like never before. See and hear all the Tymac Talkies, for 
the Commodore 641М VIC 20!" Atari* Home Computers, IBM PC or PC Jr. at your local computer retailer. 


Tymac Talkies: the most fun you've ever heard. 


Type Snyper First Strike Flyer Fox Gandalf the Sorcerer Codename: DEADZONE 


TYMAC INCORPORATED 
129 Main Street, Franklin, NJ 07416 е 201-827-4050 


Commodore 64 and VIC 20 are trademarks of Commodore Business Machines, Inc. Atari is a trademark of Atari, Inc. 


The fisherman raises his umbrella, but is standing on the 
wrong side of the boat (64 version). 


machine language and the speed controls are built- 
in. The four function keys give you four speeds, 
from very slow (f1) to frustratingly frantic (f7). 
The first speed (f1) is rather easy and is recom- 
mended only as practice. You can also pause the 
action by pressing the SHIFT/LOCK key. (Pressing 
it again restarts the game.) To end the game (64 
version only), press the back arrow (<) key. 


W Calculate odds on HORSE RACES with ANY COMPUTER 
using BASIC. 

Ш SCIENTIFICALLY DERIVED SYSTEM really works. TV 
Station WLKY of Louisville, Kentucky used this system 
10 predict the odds of the 1980 Kentucky Derby. See 
Popular Computing (February, 1984) for a review of this 
program. This system was written and used by 
computer experts and is now being made available to home computer owners. This method 
is based on storing data from a large number of races on a high speed, large scale computer. 
23 factors taken from the “Пайу Racing Ғогт” were then analyzed by the computer to 
see how they influenced race results. From these 23 facts, ten were found to be the most 
vital in determining winners. NUMERICAL PROBABILITIES of each of these 10 factors were. 
{һеп computed and this forms the basis of this REVOLUTIONARY NEW PROGRAM 

I SIMPLE TO USE: Obtain “Daily Racing Form'' the day before the races and answer the 
10 questions about each horse. Run the program and your computer will print out the 
odds for all horses in each race. COMPUTER POWER gives you the advantage! 


m YOU GET: 
1) Program on cassette or disk 
2) Listing of BASIC programs for use with any computer. 
3) Instructions on how to get the needed data from the " Daily Racing Form.” 
4) Tips on using the odds generated by the program. 
5) Sample form to simplify entering data for each race. 


3G COMPANY, INC. DEPT.GA 
RT. 3, BOX 28A, GASTON, OR 97119 
Yes, | want to use my computer for FUN and PROFIT. Please send me ‘‘Play the 
Horses" for $29.95. Circle the cassette you need: PET/CBM.  VIC-20, Color Computer. 
TRS-80 Sinclair Timex 1000. Atari Commodore 64 (disk or cassette) 
Apple (disk or cassette) “л. 
Enclosed is: check or money order 10 Mastercard 1 Visa &9 
Бр. date 


(503) 357-5607 


бай 0 
МАМЕ 


FUN ana PROFIT! 
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In the VIC version, a shark is about to be bopped. 


Special VIC Instructions 

The VIC version runs on an unexpanded VIC, but 

requires two programs. The first redefines the 

character set, the second is the main program. 
First enter Program 1. If you are using a disk 

drive, add the following lines: 


700 PRINT"LOAD"CHRS (34) "FRANTIC2"CHRS (34) 
"в" 
POKE198, 4: FORT=631T0633:POKET,145:NEX 


T:POKE634,13:END 
Cassette users should add this line: 


710 


700 POKE198,1:POKE531,131:END 


Next, type in Program 2 and SAVE it as 
FRANTIC2. To play the game, LOAD and RUN 
Program 1 and it will LOAD and RUN Program 2. 

If you don't want to type in the programs, 
send me $3, a cassette, and a self-addressed 
stamped mailer, and I will make a copy (VIC ver- 
sion only). 

David Lacey 
3708 J Street 
Lincoln, NE 68510 


See program listings on page 182. @ 


FREE OFFER! FREE OFFER! 


COMPUTER CASSETTES 
58€ 


FREE "Great Inventions Game" Program Cassette 
with each order of 20 or more C-10's 
Specify VIC-20, Commodore 64, ТІ-99/4А, TRS-80 CoCo or MC-10 
e C-10 Length/Free Labels e 5 Screw Shell 
e Storage Box add 12€ each e Lifetime money back guarantee 
* $2.00 shipping charge - any quantity 
(Canadian Orders $6.00 shipping) 
ө NJ Residents add 6% sales tax 
e Send check or money order to: 


PARALLEL SYSTEMS 


Box 772 Dept. V е Blackwood, NJ 08012 
609-227-9634 


r mode. Ў 
nples supplied. 
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Arcade-Style Games For 
The VIC-20: Skramble! And 
Gridder Harvey B. Herman, Associate Editor 


What makes a great computer 
game? I suppose it's like invest- 
ing in the stock market. If the 
brokers had all the answers, 
they would be millionaires in- 
vesting their own money rather 
than other people's. And if game 
designers knew all the secrets 
for producing great games, they 
would never make a false step. 

Since no one can know all 
the secrets, some people consis- 
tently do better than average in 
the stock market, and so do some 
game designers in competition 
for our software dollars. I don't 
know what a good average might 
be, but in the opinion of my fam- 
ily, Microdigital is batting .500 
on Skramble! and Gridder. 

My youngest son almost 
immediately formed strong opin- 
ions on the quality of each game. 
Perhaps you can use his insight 
in your evaluations of other 
games. However, we don’t have 
all the answers, or we would be 
writing games rather than re- 
viewing them. 


Skramble! 


The game begins with instruc- 
tions and a chorus of "Yankee 
Doodle.” You are in command 
of a moving spaceship. Your 
only options are to bomb, shoot, 
or maneuver around enemy de- 
fenses. You have a limited 
amount of fuel, not enough to 
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complete the mission. You have 
to earn additional fuel by de- 
stroying enemy oil tanks. Points 
are scored by destroying their 
rockets and helicopters. You 
lose if you collide with anything 
or run out of fuel. Points and 
remaining fuel are displayed in a 
panel at the bottom of the 
Screen. 

There is plenty of variety— 
the game offers eight different 
challenges (screens) before you 
reach the Homing Slot. The first 
screen has varying terrain filled 
with storage tanks, rockets, and 
helicopters. With the joystick, 
you maneuver up and down, 
forward and back; and you bomb 
and shoot with the fire button. 
At first it seems easy, but then 
the rockets are launched and the 
subsequent screens become 
much tougher. 

As far as my kids are con- 
cerned, this game is a real win- 
ner. The variety and level of 
difficulty keep their interest 
much longer than the average 
game. They keep coming back to 
it, but still haven't made it to the 
end. Perhaps therein lies the 
secret of a successful game. 

However, I would not have 
predicted this from my first im- 
pressions. Although they may 
feel differently next year, they 
like it now and are still trying to 
reach the Homing Slot. 


Enter CompuServe's 
Electronic Mall" 

and shop at your 
convenience in these 


exciting departments. 
Тһе Micro Mart 

The Department Stores 
The Travel Agent 

Тһе Book Bazaar 

The Record Emporium 
The Photo Booth 

The Software Shop. 
The Financial Market 
The Magazine Kiosk 
The Gardening Shed 
Тһе Newsstand 


A sample of the 


companies participating 
in CompuServe's 
Electronic Mall "includes: 
Amdek 

American Airlines 

American Express 

AST Research 

Bantam 

CBS Publishing 

CDEX 


Colonial Penn 
Commodore 

Computer World 

Digital Equipment 
dilithium Press 

800 Software 

Heath 

Hertz 

E.F Hutton 

Inmac 

Innovative Software 
Magazine Supply House 
Manufacturer's Hanover Trust 
McGraw-Hill 
Metropolitan Life 
Microsoft 

Miracle Computing 
Misco 


Newsnet 

Official Airline Guide 

Pan American Electronics 
Peachtree Software 

Practical Peripherals 

Program Store 

Professional Color Labs 

RCA Record Clubs 

Record World 

Sears 

Select Information Exchange . 
Sim Computer Products 

Software Advisor 

Stark Brothers 

Supersoft 

Max Ule 

Vanguard 

VisiCorp 

Ziff-Davis 

Merchants and manufacturers who want to 
participate in the Electronic Mall" may contact: 
Stephen A. Swanson, L.M. Berry & Co., 
P.O. Box 6000, Dayton, OH 45401, 
(513) 296-2015. 


ATCH UP WITH THE WAY 


COMPUSERVE S NEW ELECTRONIC MALL 


LETS YOU SHOP TODAY. 


Introducing the 
first computer shopping 
service that brings you 
convenience, savings 
and enjoyment. 
Here's your chance to expand the 
practical uses of your personal computer. 
Sign up for CompuServe and shop in 
our new Electronic Mall. It's easy to use. It 
tells you more about the products you're 
buying. Itlets you order faster. And it's 
totally unique. 


CompuServe's new Electronic Mall” 
offers you all these shopping 
innovations. 

- Its enormous! So it gives you in-depth 
information on thousands of goods and 
services, and lets you buy even hard-to-find 
merchandise. - Its unique "Feedback" serv- 
icelets you ask the merchants themselves 
specific questions. — It's incredibly efficient in 
ordering the products and services you want. 


- Its special discount opportunities make it 
economical, purchase after purchase. - And 
its name-brand merchants assure you of 
top-quality merchandise. 


Make the CompuServe Electronic 
Mall 15-Minute Comparison Test. 
Whatyou can do in 15 minutes shopping 
the Electronic Mall way. 

Call up on your computer screen full 
descriptions of the latest in computer 
printers, for instance. 

* Pick one and enter the order command. 

* Check complete descriptions of places to 
stay on your next vacation. 

* Pick several and request travel brochures. 

* Accessa departmentstore catalog and 
pick out a wine rack, tools, toys... апу 
thing! 

* Place your order. 

Whatyou can do in 15 minutes shopping 

the old way. 

* Round up the family and get in the car. 


The Electronic Mall” is a cooperative venture between CompuServe Inc., and L.M. Berry & Company. 


The Electronic Mall, a valuable 
addition to the vast world of 
CompuServe. 

CompuServe's Consumer Information 
Service brings you shopping information, 
entertainment, personal communications 
and more. 

You can access CompuServe with al- 
most any computer and modem, terminal 
or communicating word processor. 

To receive your illustrated guide to 
CompuServe and learn how to subscribe, 
call or contact... 


CompuServe 


Consumer Information Service 
P.O. Box 20212 

5000 Arlington Centre Blvd. 
Columbus, OH 43220 


800-848-8199 


In Ohio call 614-457-0802 


AnH & R Block Company 
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Gridder 


A painter, indicated by a happy 
face, is moved around a square 
grid. When he boxes a given 
square, it is painted (indicated 
by changing color). At the same 
time, lethal chasers are after the 
painter. The painter—controlled 
by your joystick—must paint all 
the squares on the screen with- 
out getting caught by a chaser. 

The next grid appears when 
the previous one is painted; there 
are 256 different grids (screens) 
in all. The score, including cur- 
rent high, is shown at the screen 
bottom. 

A few complications are 
offered. You may create holes in 
the grid which neither the 
painter nor the chaser can cross. 
This stops the chaser for only a 
short time, however. The chasers 
ordinarily cannot see through 
obstacles, but at higher screens 
the obstacles are transparent, 
which increases the challenge. 

You get three extra painters 
in addition to the unused ones 
when a grid is completely 
painted. Up to nine painters are 
allowed at one time. 

My youngest son reacted 
negatively to this game. He feels 
that there is not enough variety 
in spite of the 256 grids. In his 
words, "terminal boredom” set 
in long before the game became 
more difficult at the higher grids. 
Almost every other game was at 
least fun at first; not this one, he 
claims. Again, I would not have 
predicted this response from my 
first impression of the program. 


For The Unexpanded 
VIC 


Skramble and Gridder are offered 
on tape for the unexpanded VIC, 
and have the option of either 
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keyboard or joystick play. The 
front of each box has an artist's 
conception of the game (poetic 
license as usual), but the back 
has a small photograph of the 
actual screen. I applaud this last 
step and wish more software 
packaging was this honest. 

The question remains: Why 
did my children like one program 
so much and not the other? 
Skramble! was fun for us and 
Gridder was not. Your experience 
may be different. 

The common thread of good 
games is true variety and chal- 
lenge. They must hold your in- 
terest by offering sufficiently 
different situations. At the same 


time, they must challenge even 
the best players so winning will 
not be routine. 

If a game meets the twin 
requirements of variety and chal- 
lenge for you, by all means buy 
it. As always, I recommend that 
prospective buyers first try 
games at a local store. 


Skramble! 

Gridder 

MICRODIGITAL 

Distributed by: 

Tech2 Software 

P.O. Box 1110 

Webster, NY 14580 

(716) 872-0647 

$14.95 each on cassette 

$19.95 each on disk ©) 


Easy Script: Word Processor 


For The 64 


Easy Script, from Commodore, 
contains all of the standard word 
processing features: the ability 
to relocate or duplicate para- 
graphs, store files on disk or 
tape, and move easily around 
the screen using the cursor con- 
trol keys. You can also jump to 
the top or bottom of the screen 
or your text, to the bottom of the 
file, to the next or previous word, 
or to any line, and to the next 
Screen. In addition, you can pan 
in any direction. 

Easy Script allows you to 
directly insert text while the rest 
of your document wraps around 
and realigns itself automatically. 
Likewise, you can delete charac- 
ters, words, lines, and para- 
graphs. You can also erase words, 
characters, lines, or all of your 
file. Erase differs from Delete in 
that it leaves space on the screen 


Shelby Neely 


in place of the erased text. 

Easy Script boasts another 
useful feature that is found in 
many, but not all, word proces- 
sors. With only a few keystrokes, 
you can search for every occur- 
rence of a word or phrase 
throughout your document and 
replace it with a different word 
or phrase. 

It can also search through 
any linked files on the disk. 
Linked files are files with a spe- 
cial marker that tells the com- 
puter to connect them when you 
view or print them. Since any 
computer's memory limits the 
number of pages you can hold in 
one file, you may have to divide 
your school paper or your year- 
end report or your first novel 
into many different files or chap- 
ters. The ability to link those 
files can be very useful. 


Special Features 


The table of contents in the man- 
ual is eight pages. Contained 
within are a very large number 
of features. The major ones are: 


1. decimal tabs that automatically 
align your columns of numbers, 
2. soft hyphenation which lets 
the computer decide whether to 
hyphenate a word or not, 

3. margin release which lets you 
temporarily override the margin 
setting, 


4. conditional forced page which 
lets the computer decide if the 
remaining number of lines is too 
few to print on the current page, 
5. automatic page numbering, 
6. headings and footings, and 
7. tab settings that are easy to set, 
easy to use, and easy to view; and 
can also be saved and recalled. 


You can also change the 
color combinations of the screen, 
text, and border, include com- 
ment lines in your text that will 
appear on the screen but will not 
be printed, and easily change 
uppercase letters to lowercase 
and vice versa. You can specify 
the number of blank lines in 
the text without the space ap- 
pearing on the screen. (This 
saves memory.) 


You Get What You See 


Easy Script offers a conve- 
nient feature which allows you 
to see what the printed docu- 
ment will look like. While the 
program is not 80-column com- 
patible, it lets you scroll horizon- 
tally up to 240 columns on the 
screen. In the special View 
Mode, what you see is what you 
get. If you specify double spac- 
ing, you'll see it, and if you want 
the right margin j justified, you'll 


Unique Software For The COMMODOREÓÁA Computer 


The ULTIMATE Thoroughbred Handicapping System 


After you enter selected portions of past performance 
information from THE DAILY RACING FORMS, 
MICRO'CAPPER does the rest. Dozens of racing 
factors are evaluated, including class, consistency, 
fitness, distance, surface, post position and running 
style. Hundreds of calculations are condensed into a 
SINGLE RATING NUMBER for each horse. 


rcc] 


MICRO'CAPPER^ 


MICRO'CAPPER is a commercial quality, menu-driven software system with powerful 

full-screen data entry and editing. Its error trapping facilities provide friendly and 

foolproof operation, even tor the novice computer user The MICRO'CAPPER package 

consists of nine programs on one diskette, plus a users manual It is available in two 

versions one *ог use with the EASTERN EDITION of THE DAILY RACING FORM. and 
one for use with the WESTERN EDITION 


Hardware requirements: COMMODORE-64 with one disk drive 


Check or money order. Florida residents add 5%. 


CapitalGomp, inc. $39 


Microcomputer Software 
P.O. BOX 290485 DAVIE, FLORIDA 33328 


Пле» 


No Foolin' Around 


The Commodore 64 is your first "real" 
computer. So, it stands to reason that 
the software you use be real too. And, 
useful. 


The INSTA series productivity 
real and useful. 


With our tutorial manuals and HELP 
SCREENS we actually teach you what 
word processing, spreadsheets and 
graphs are all about. 


Games are fun....for foolin around. - 
INSTA is for real. 


software is just that — 


By Cimarron a division 
of MICRO SCI CORP. 
2158 Hathaway Street 
Santa Ana, CA. 92705 
(714) 241-5600 


MICROSCI 


Commodore 64 isa 
trademark of Commodore 
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see that, too, along with centered 
headings. 

Many word processors re- 
quire that you purchase a sepa- 
rate mailing list program if you 
wish to send a form letter to 
many different people, but Easy 
Script includes a mail-merge pro- 
gram. You type a list of names 
and addresses, create your form 
letter, and then sit back while 
the computer merges the two 
and prints your letters. 

If you have a need for stan- 
dardized forms, Easy Script can 
accommodate that, too. You can 
save several standard para- 
graphs as separate files and then 
insert them into your form letters 
or merge them all to create one 
document. 


Very Few 
Weaknesses 


As with everything else, Easy 
Script isn't perfect. The manual 
is only fair. While it explains 
most features in detail and in- 
cludes exercises and recaps at 
every step, it is sometimes diffi- 
cult to understand, even for an 
experienced user. The only part 
of the manual that is really well 
organized is the Reference Sec- 
tion. You should read it first. 

In addition, it is unfortunate 
that Easy Script does not include 
a Quick Reference Card. You 
can create your own, but many 
word processing programs sup- 
ply them and they are quite 
useful. Since Easy Script is not 
menu-driven (another draw- 
back), there are many commands 
to remember. 

Itis also disturbing to see 
words at the ends of lines cut in 
half in the Edit Mode. Most word 
processors wrap the entire word 
around to the next line if it will 
not fit. Easy Script does this in 
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the View Mode only. Unfortu- 
nately, the View Mode does not 
allow all the cursor movement 
and editing commands found in 
the Edit Mode. Preferably, these 
two modes should be combined. 
In the View Mode, you never 
know where you are, there is no 
page number indicator or even 
line or column indicator, and 
you have to learn a different set 
of cursor movement commands. 


In spite of these weaknesses, 
Easy Script still rates near the top 
of the list of word processors for 
the Commodore 64. It’s power- 
ful, professional, and easy to 
use. And the price is reasonable. 


Easy Script 

Commodore Business Machines, Inc. 
1200 Wilson Drive 

West Chester, PA 19380 


Disk $49.95 a 


Worms? For The 64 


Gregg Keizer, Assistant Book Editor 


Worm training? The idea sounds 
ridiculous at first. Images of 
riding and roping worms 
momentarily cross your mind. 

No, Worms? isn't really a 
game about training worms, but 
that's part of the process. Ele- 
ments of connect-the-dots are 
hidden in the game, but Worms? 
isn't a children's game, nor an 
arcade game that moves at light- 
ning speed. This game is hard to 
pin down, for it fits in no conve- 
nient category. It's not “just like 
PacMan” or "close to Defender.” 
Worms? is different. 


Mathematical 


Worms 

David Maynard, game designer 
and programmer of Worms?, 

first came up with the idea after 
reading a Martin Gardner col- 
umn in Scientific American. The 
column discussed the patterns 
of idealized mathematical worms 
and it gave Maynard ideas. The 
result is Worms? 

A one- to four-player game, 
Worms? moves slowly at first, 
picking up momentum as each 
worm becomes better trained. 
The colors, graphics, and sounds 


are up to the usual high stand- 
ards of Electronic Arts. But all 
this is secondary to the delight 
you find in just experiencing the 
game. 


You're On Your Own 
When you open the game pack- 
age, you see a disk, a four-page 
instruction booklet, and a warn- 
ing not to read the directions. 
That advice is well-taken. 

After a rather long delay in 
waiting for the game to load, the 
screen shows the playing field, 
worm selections, and instruc- 
tions on how to change the worm 
types. You have four worms and 
five worm types to choose from. 
Press the f5 key to select one of 
the four worms, the f3 key to 
change the worm type. 

The four worms are color- 
coded as green, red, blue, and 
purple. The worm types are: 

ө NEW. This is the worm type 
you'll normally select when you 
play. It's untrained, and you're 
the trainer. 

€ AUTO. Similar to the NEW 
worm, this one is trained by the 
computer to make intelligent 
moves. 


€ WILD. Another computer- 
trained worm, it's programmed 
randomly before the game be- 
gins. Not as smart as the AUTO 
worm, it's easier to beat. 


@ SAME. The worm that played 
this color during the last game is 
used again. It's already trained. 


е . The worm is dormant and 
doesn't play. Use this worm 
type to play with less than four 
players when you don't want 
the computer interfering. 

The playing field, before 
you begin the game, is a screen- 
ful of dots. Each dot lies in the 
middle of its own territory, 
which extends to the six dóts 
surrounding it. 


Figure 1. Territories 


The object of the game is to cap- 
ture as many territories as pos- 
sible by drawing worm trails from 
dot to dot. You capture a territory 
and receive one point when you 
draw the last trail in the territory. 
To win, accumulate more points 
than anyone else. It sounds ter- 
ribly simple when you first read 
it, butit's notas easy as it sounds. 
Your worm may draw five of the 
six possible lines to a dot, and 
then another player's worm may 
come along and claim the terri- 
tory. Or your worm may be lay- 
ing trails in a perfect pattern, 
only to run into another worm. 


Worm Trainer 


As you play, train your worm to 
make specific moves in specific 

situations. It leaves a trail of light 
behind as it moves, drawing the 


NOTHING CAN UPGRADE THE KEYBOARD 
OF YOUR C-64 LIKE THE MAGNACOMP-64 
INTEGRATOR CONSOLE 


$3 plus $5.00 shipping e 3 ED 


THE C-64 IS LITERALLY TRANSFORMED!! 
e YOU INSERT THE ENTIRE KEYBOARD INTO THE LARGER, MORE SUBSTANTIAL HOUSING. 
e NUMERIC DATA-PAD IS BUILT IN. (HARD WIRED, NO SOFTWARE REQUIRED.) © 
e A FULLY ENCLOSED COMPARTMENT HIDES WIRES, ROOM IS PROVIDED FOR 80 COLUMN 
CARDS, EXPANSION, ETC. 
• SIX SURGE/SPIKE PROTECTED AND GROUNDED RECEPTACLES ARE INTERNALLY PROVIDED, 
WITH A HEAVY-DUTY CORD. 
e UNIT IS COLOR-MATCHED TO THE NEW MSD HIGH SPEED DISK DRIVE, TO PROVIDE A 
HANDSOME COMBO. SAS 
SEND FOR FREE 6-PAGE CATALOG • C.0.D. or prepaid, only. e California residents add 6.5% sales tax. 
Please allow 3-5 week for delivery  10-day money back guarantee. 
OAKWOOD COMPUTER PRODUCTS 


AVAILABLE FROM: 3421 Burbank Blvd., Burbank, CA 91505 e (213) 841-0964 


We know. You've been looking 
everywhere for 64 software, INSTA's 
interactive line of software is just a 
phone call away. 


Imagine, specially designed software 
that "talks" to one another. Your home 
budget created with CALC instantly 
becomes a GRAPH. And your club 
membership list with addresses and 
monthly dues quickly becomes a form 
letter, printed over and over again, 
automatically, for each member. 


So, no more lookin' around. INSTA is 
here now! 


INSIA 


By Cimarron a division 
of MICRO SCI CORP. 
2158 Hathaway Street 
Santa Ana, CA. 92705 
(714) 241-5600 


CI 


MICROSCI 


Commodore 64 isa 
trademark of Commodore 
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lines from dot to dot. If you create 
a pattern that quickly draws 
lines and claims territories, you 
get points fast. If your worm's 
pattern is inefficient, it doesn't 
claim territories as quickly, and 
the other player's worms may 
capitalize on your work. 

The space bar lets you 
choose the direction your worm 
moves in. Sometimes the direc- 
tions are restricted because paths 
have already been filled in by 
your worm or other worms. 
When you're satisfied with the 
new direction, press any key to 
set the worm in motion and lay 
its trail. 

The worm moves automati- 
cally once it recognizes a pattern 
in your training. It continues to 
move until it runs into an un- 
known situation. The worm then 
flashes and you are able to give 
ita new command. This process 
continues throughout the game. 
As you give more commands to 
the worm, you train it. It re- 
members all your previous di- 
rections and moves in that way 
as long as it recognizes the pat- 
tern. Training is a cumulative 
process. Eventually, your worm 
recognizes every situation, and 
you don't have to do anything 
but watch it move around the 
screen. 

There are dangers to your 
worm, however. If two or more 
worms try to move to the same 
dot at the same time, they collide 
and die. You hear a nasty sound 
and see a small flash as your 
worm expires. Your worm dies 
if it cannot move from its present 
dot as well. This usually happens 
only near the end of the game 
when the screen is filled with 
trails and your worm's trapped. 
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Patterns And More 
Patterns 


Creating a good pattern is one of 
the keys to the game. You'll find 
yourself iiri your worm to 
make all kinds of patterns, from 
girderlike constructions to zig- 
zags to complex hexagon clus- 
ters. Many times, you'd like to 
duplicate a pattern you used in a 
previous game, but you can't 
because another worm is in the 
way. Each game is different from 
the last. You have to adapt to 
the situation. 

It can be frustrating, espe- 
cially when other PIE inter- 
fere with your worm’s training, 
but that's part of the joy of 
Worms?. It's not all skill, how- 
ever. Luck plays a part in the 
game. Imagining what your 
worm will do is almost impos- 
sible at times. Sometimes the 
only thing you can do is train 
your worm and see how it all 
works out. If you're lucky and 
the other player's worms happen 
to create patterns that yours can 
exploit, so much the better. 

It's difficult to visualize how 
a worm is trained, and how pat- 
terns are created by just reading 
about it. Seeing is everything 
here. 

You're starting to train your 
worm, and want to create a pat- 
tern. How do you do it? 


Figure 2. First Move 


Your worm has six directions 


to choose from. You decide to 
move it southeast and press the 
space bar until that direction is 
indicated. The worm moves to 
the dot below and to the right. 
Now it wants another command, 
for it doesn't recognize the pat- 
tern of a trail leading from the 
northwest. 


Figure 3. second Move 


You tell the worm to move 
northeast. Anytime your worm 
sees the pattern of a trail to the 
southeast, with five directions 
open, it will now move up and 
to the right—all the time. 


Figure 4. Third Move 


Now your worm moves west, 
closing i in the triangle. You still 
haven't earned any points, how- 

ever, since there is no dot with 
all six trails drawn to it. From 
now on, when your worm starts 
out on a dot which has one trail 
to the southwest (created in the 
second move), it will want to 
move to the west. 

Your pattern is just begin- 
ning. As you continue to train 
your worm, the pattern will 
emerge. If you've trained your 
worm well, it will continue the 


same pattern, over and over, 
until it either fills the screen or 
cannot move further, in which 
case it dies. Of course, playing 
with only one worm on the 
screen is considerably different 
than when there are four com- 
plex patterns developing from 
four worms. 


Other Options 

There are several interesting 
options also included in Worms?. 
You can freeze the game's action 
atany time, turn off the grid's 
dots, flash claimed territories 
throughout the game, and even 
save and load previously trained 
worms. Changing saved worms 
is also easy to do. These options 
are useful if you want to analyze 
a particular worm's pattern to 
see how to improve it, or to stop 
in the middle of a game and re- 
sume it later. 


Unique And 
Interesting 


Worms? is one of the most fas- 
cinating games I've played in a 
long time. It's so different from 
anything else that it quickly capti- 
vated me. Worms? tournaments 
became popular among the staff 
of COMPUTE!. We soon had our 
favorite patterns and worms, 
from girders to vast encircling 
patterns that became apparent 
only after half the screen was 
filled. 

The game is hard to master. 
It's easy to play, but seems almost 
impossible to play well time after 
time. There are just too many 
factors over which you have no 
control such as the other player's 
worms and peculiar patterns you 
may have inadvertently created. 
You can't really become an expert 


We believe that children have an innate 
curiosity a natural desire to learn, to 
discover, to understand. Our software was 
designed with this in mind. Even 
traditionally tedious subjects like math, 
reading, and vocabulary building are easily 
mastered. Why? Because our software 


Grades 1 through 6 makes children want to learn. And when 


2 disks $49.95 they want to learn, the results are 
FANTASTIC! 
gu 
ANS PO" 
jS We know our software WORKS because we 


developed and tested it in the classroom. 
Let our software WORK for your children 
too! 


For Apple, IBM PC, and Commodore 64.* 
Grades 4 through 12 


2 disks $49.95 Ask your dealer. 


6069 Groveoak Place #12 
Rancho Palos Verdes, CA 90274 


MasterCard and Visa cardholders may call collect to order: 
(213) 378-7826 / (213) 378-3995 


*Apple, IBM, and Commodore 64 are trademarks of Apple Computer, Inc., Interna- 
tional Business Machines Corp., and Commodore Business Machines, Inc. 
respectively. 


High School, College, 
and Adult Students 
2 disks $69.95 


REVIEWS 


PAUSED: HIT RUM 


Train your worms well and you will 
capture more territory. 


at this game in the same sense as 
you can with arcade games like 
PacMan or Robotron, where you 
practice the same system of move- 
ment and fire over and over. 
That's not to say this detracts 
from Worms?. Instead, I think it’s 
one of the reasons we play the 
game so frequently. A novice can 
play and have an excellent chance 
of winning, even with only the 
briefest explanation of how the 
game works. Each game is differ- 
ent from the last, so even the most 
experienced players enjoy playing 
game after game. 

Worms? is as much fun to 
watch as it is to play, and when 
your worm dies, you may stay in 
front of the screen just to see how 
it all turns out. At game's end, 
when the different patterns are 
revealed, along with the point 
totals, there will be oohs and ahs 
at the geometric precision or ran- 
dom inefficiencies of each worm. 

Worms? is a strange game in 
a lot of ways. Even though it 
consists of lines and dots, you 
can be easily drawn into the 
game's world. Some arcade 
games do this with cute charac- 
ters and elaborate animation. 
Neither of these is used in 
Worms?. Yet you do fall into the 
worm's mentality quickly, think- 
ing about how to train your 
worm faster, or in better pat- 
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terns. Sometimes the planning, 
such as it is, pays off; other times 
it doesn't because another 
player's worm interferes or 
crashes into yours. 

Don't read the directions 
that come with the game. You 
probably won't understand them 
anyway. It's not a matter of clar- 
ity, but one of visualization. 
Worms? is almost impossible to 
imagine without seeing it on the 


screen and experiencing the 
game. Even when you've played 
the game for a time, reading the 
directions doesn't seem to help. 
There are just too many pos- 
sibilities to explore. But you'll 
have fun trying. 

Worms? 

Electronic Arts 

2755 Campus Drive 

San Mateo, CA 94403 

$40 


IFR (Flight Simulator) For 
The VIC-20 David Florence, Programming Assistant 


You are on the runway ready for 
takeoff. Throttle full, you begin 
to accelerate. Airspeed is rising— 
20, 30, 45, 53. You pull back on 
the stick and begin your ascent. 
You retract your landing gear. 
Heading 000-north, you are on 
your way. Now you are Charles 
Lindberg or Amelia Earhart. 

You have entered the world 
of flight—a domain of mountain 
ranges, high and low altitude 
forests, canyon passes, and thin 
landing strips. 

Academy Software's IFR 
(Flight Simulator), written by Ron 
Wanttaja, joins a long list of other 
flight simulators for various 
computers. But, it stands apart 
in several ways. 

First, it is written for the 
VIC-20. (A Commodore 64 ver- 
sion is also available.) Second, the 
instrument panel displays read- 
ings in digital form. This makes 
it easier to understand the status 
of your flight. Third, you can 
choose from ten levels of skill 
and turbulence. This adds to the 
challenge and enjoyment of test 
flights. 


Getting Airborne 
When you begin, you are 
prompted for a choice of skill 
level and air turbulence factor. It 
may be wise to set these at zero 
until you earn your wings. 

The program contains a use- 
ful editor with which you can set 
your flight conditions. When you 
are prompted to press T for take- 
off, you can press E instead, for 
the editor. Should you choose 
this, you can customize the flight 
conditions of altitude, north 
and west coordinates, airspeed, 
throttle, fuel, and heading. 

Use the map to determine 
where you would like to be, and 
remember to set your airspeed 
above the stall speed or your 
flight will be a short one. The 
editor is more useful as you learn 
to control the aircraft. 

To take your first flight, you 
need to increase throttle, (labeled 
T on the lower left of the screen) 
to full by pressing the f1 key 
until the indicator is fully lit. 
When your airspeed reaches 
about 50, gently pull back on the 
joystick to start your climb. 


Developing a mind 
for the Future. 


SUPER BASIC $39** U.S? 


- Gives you З different versions of Commodore 
Basic Programing Language Version 4 PLUS! 
A Builtin Machine Language Monitor! 

- Disk & File Maintenance Commands 
Data Handling Commands 
Graphics Plus Basic 
Compatible with Commmodore's "B" Series & 
Much Much More! 


RECREATE PROGRAM $39% U.S: 


RTC's Answers to Program Recreation 
Converts Printer's File to SCRIPT 64's Files. 


SUPER COPY $29*5 U.S! 


Super Fast Disk Copies on a 1541 
Copy Entire Disk in 7 Minutes or Less 
Copy Selected Files 

Complete Pattern Matching 

Full Prompts 


BASIC AID $39% U.S? 


Your Aid to Writing Programs 

Allows Scrolling Through Programs 

Adds 33 more Commands to the Basic Language 
Has Find, Change, Merge, Move Commands 
Convert Hex, Binary and Decimal Numbers and More! 


COLOR 80 


RECREATE 
ree | BASIC AID 


Color 80 $49% 0.5: 


Produces 80 Columns With Color! 
Needs No Extra Hardware 

Use With Terminal Programs 
Uses No Basic Memory in the 64 
Develop Your Own Programs 


EN "d 
SCRIPT 64 & SCRATCH PAD 64 $105** U. 


Script 64. 
Word Processor in French and English 
80 Columns 
Global Search and Replace 
User Created Dictionary 
Spelling Check 
Scratch Pad 64 
The Database/Mail List in One! 
Merges with Script 64 Word Processor 
Print out Labels, Envelopes, Mail List & More! 
Suitable with both Single and Dual Disk Drives 
Fully C64 Link Compatible 


са 


*SUGGESTED RETAIL PRICE F O.B. in U.S. FUNDS, Toronto, CANADA 


C64 LINK*® 
The Smart 64 


Cartridge 
Expansion Slot 


Audio Serial 1/0 
Switch RF Video Port 


"о / 


Cassette Port Users Port. 


Up to 8 more 64s TEEE Disks 
Give These Expanded Capabilities | — АШШЫ (2050) 600) 


to Your 64 and VIC 20 


The ability to transfer data from any type of device to another 
(IEEE, Serial, Parallel) 


IEEE Printers 
(4022) (8023) 
(8300) etc. 


1541 Drive 
And 1525 Printer 
or 1515 Printer 


or VL3 Cable 
to Parellel 
Printer 


* 


IEEE to Parallel 
Interface 


or VL4 Cable 
to Standard 


* 


BASIC 4.0 which allows you to run more PET BASIC programs 


and gives you extended disk and 1/0 commands. 


The ability to have several 64s on line together - sharing com: 
mon IEEE devices such as disks or printers with Spooling 
Capability. 


* 


Built-in machine language monitor. 


A built-in terminal or modem program which allows the system 
to communicate through a modem to many bulletin board 
systems and other computer mainframes. 


Compatability with CP/M. 


Contact your local Commodore dealer or RTC. 


Payments by VISA, MASTERCARD or BANK TRANSFER. 
Mail orders also by certified cheque, etc. 


Parellel Devices 


(future) 
Cartridge 
Mother Board 


PLUS CUSTOMS BROKERAGE 
HANDLING AND MAILING CHARGE 


(416) 884-4165 


10610 Bayview Avenue (Bayview Plaza) Richmond Hill, Ontario, Canada L4C 3N8 


REVIEWS 
RU 


When your altitude is above 80, 
you can pull up your landing 
gear by pressing G. 

As the airspeed reaches 
about 105, pull back on the joy- 
stick a little more to level your 
speed. Your altitude starts to 
increase at a faster rate, and your 
north coordinates are increasing 
rapidly while your west coordi- 
nates are relatively stable. 

Begin a turn to the west, 
heading 270 (the compass is in 
the top center of the display), by 
moving the joystick to the left. 
Make the turn before your north 
coordinates reach 75, or you will 
crash into a mountain cliff (un- 
less your altitude is above 600 
feet). When you make your turn, 
the artificial horizon (middle 
center of the display) and your 
turn and bank coordinator (mid- 
dle left of the display) reflect 
your turn to the west. 

Don't turn too sharply. As 
your heading reaches 270, level 
off your turn by easing the joy- 
stick back to the right and getting 
even with the horizon. You have 
now made it into the sky with 
success. 

An excellent feature of the 
program is the sound, the roar 
of your engine. If you are not yet 
an ace you hear other sounds 
like the screeching of a landing 
with gear up, and the fearful 
crash. These sounds do a good 
job of enhancing the realism of 
the simulation. 


Using The Map 


Included with the software is a 
map, which is based on two co- 
ordinates, north and west. Both 
start at 0 and end at 250. To get 
your position, check the INS 
(Inertial Navigation System) 
readout at the bottom of the dis- 
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Flying through the mountain pass in 
IFR Flight Simulator. 


play panel. Trace up the map's 
vertical axis until you reach the 
north value, then trace horizon- 
tally until you reach your west 
value. Where the two meet is 
your location on the map. Each 
unit on the INS readout is the 
equivalent of one-tenth of a 
mile. 

There are four airports, only 
two of which have fuel and re- 
pair. There are different altitudes 
and terrains, a mountain range 
and forests, as well as high and 
low passes through the moun- 
tains. The aircraft flies at any 
heading between 000 and 359. 
Compass headings are 000- 
north, 090-east, 180-south, and 
270-west. 


Precision Landings 
Airports 1 and 2 have installed 
the ILS (Instrument Landing 
System) for precision landings. 
As you approach these airports, 
you see on the ILS instrument 
(center of display) two bars, one 
horizontal and one vertical. The 
horizontal bar is the glidescope. It 
shows the vertical position of 
the aircraft in relation to the run- 
way. Fly towards the glidescope 
to make precision landings. 

The vertical bar is the 


localizer. It shows the position of 
the aircraft relative to the center 
of the runway. There are front 
course and back course local- 
izers. Fly towards the bar on the 
front course and away from the 
bar on the back course. Below the 
ILS instrument there are three 
indicators labeled O, M, and I, 
for outer, middle, and inner 
markers. They light at miles 3, 2, 
and 1 from the airports, respec- 
tively. These enable you to make 
very precise landings. 


Helpful Hints 


There are some things, not im- 
mediately apparent, that will 
help you make successful flights. 

When taking off, be sure to 
keep your airspeed above the 
stall speed. Stall speed with flaps 
up is about 56 mph. If you hear 
a tone shortly after takeoff, it 
means that you are going up too 
fast for your airspeed, so bring 
the nose down a bit by pushing 
forward on the joystick. 

Your landing gear is deli- 
cately balanced so it may not 
function normally if you are 
rapidly losing airspeed or al- 
titude. Be sure to get the gear up 
and down while your indicators 
are relatively constant. A good 
time for gear up is just after leav- 
ing the ground, and a good time 
for gear down is just after making 
your turn towards the runway. 

Fly the aircraft so that one 
of your coordinates is constant. 
This is difficult to do. You'll find 
that “crabbing,” or flying a little 
to the left or right of your desired 
heading, helps immeasurably. 

When flying at high al- 
titudes, be sure to remember 
that a lot of fuel was burned to 
get that high. You may make it 
to the desired altitude, but you 


could run out of fuel before you 
are able to get back down. 

On the other hand, the air- 
craft needs limited fuel to make 
a descent, so if you have used a 
lot getting up, cut back the 
throttle to 0 or "dead stick" for 
your descent. 

Should you run out of fuel, 
remember that it is still possible 
to land the aircraft. Also, if you 
are low on fuel, you may find it 
preferable to make a safe landing 
somewhere in the fields rather 
than waste what little fuel you 
have trying in vain to reach an 
airport. Fueled landings are 
more easily made than dead 
stick landings. 

Land from the east and make 
a swift turn to the south after 
takeoff at Airport 4. 

Use the nosewheel steering 
to get back on the runways 
should you run off. You won't 
need very much speed to taxi, so 
keep it slow, around 6 or 7 mph. 

Your brakes work better if 
your throttle is at 0. 

IFR (Flight Simulator) has a 
quality of realism which sets it 
apart from others of its kind, 
even those I have tested at a 
flight school. The controls in this 
program respond very much like 
actual aircraft controls. They are 
not overly sensitive, but give 
you what you ask for, even if it 
is flying right into a cliff. 

This program does not serve 
as a substitute for real training, 
but it does familiarize you with 
some basic flight terminology and 
theory, and it's tremendous fun. 
IFR (Flight Simulator) 

Academy Software 

P.O. Box 6277 

San Rafael, CA 94303 

VIC-20 cartridge $39.95 

Commodore 64 tape or disk $29.95 @ 


6) Display full contents of directory and 
print p 

7) Change program names, add, delete 
files with simple keystrokes 

8) Easy disk initialization 

9) Supports up to four drives 

*UNGUARD Now allows you to read, write and verify bad sectors and errors 

on your disk making it easy to back-up most protected software. 


$4995 =% 


Dealers & Distributors 
Inquiries Invited 


[2 


s 29 
ўе made à о 


‘he Clone Ма 


e 


CALL (201) 838-9027 


1342 B Rt. 23 
тигр.» Мег, N.J. 07405 


ШАГЕ !. 


CENTURY MICRO PRODUCTS 


P.0. BOX 2520, MISSION VIEJO, CA 92690 
Commodore 64 5 
All Prices up to 


see 40% OFF RETAIL 


HOME/BUSINESS EDUCATIONAL 

Practicalc (D) Facemaker (D/CT) 22.95 
Totl Business Mgr. Kindercomp (D/CT) 19.95 
Multiplan (D) Delta Drawing (CT) 26.95 
Bank St. Writer (D) Type Attack (D) 28.95 
VIP Terminal Early Games (D/CASS) 22.50 
Quick Brown Fox (CT) Barron's SAT (D) 63.95 
Paper Clip (D) Snooper Troops #1 (D) 26.95 
Word Pro/SpellRight (D) Alphabet Zoo (CT) 22.95 
CalcResult Advanced (D) Koala Touch Tablet 72.95 
Data Manager (D/CASS) Mastertype (D/CT) 27.95 
Home Acct (Continental) (D) Hey Diddle Diddle (D) 19.95 
Delphi's Oracle (D) Story Machine (CT) 26.95 
CompuServe Starter Kit Kids on Keys (CT) 24.95 
Data Manager ІІ (D) Designware Spellicopter 28.95 
Cardco Write-Now (CT) Designware SpellaKazam 28.95 
FCM (Continental) (D) Trains 26.95 


D-Disk 
Cass- Tape 
CT-Cartridge 


38.95 
69.95 
69.95 
49.00 
39.00 
29.95 
66.50 
69.95 
109.95 
18.00 
47.00 
89.95 
29.00 
37.00 
37.00 
34.95 


Designware Crypto Cube 28.95 
CYMBAL 


General Ledger (D) 
Accts. Receivable (D) 
Accts. Payable (D) 


GAMES 

Choplifter (CT) 

Lode Runner (D) 
Enchanter (D) 
Jumpman (D/CASS) 
Beach Head (D/CASS) 
Neutral Zone (D/CASS) 
Planetfall (D) 

Odesta Chess 7.0 (D) 
Uston's Prof. Blackjack 


Type Attack 
52.00 
52.00 
52.00 


Cardprint G 


HARDWARE AND ACCESSORIES 


The Connection Parallel Int. 


Cardco 5 Slot Exp. (C-64) 
Data 20 Video Pak 80 (C-64) 


26.00 
25.95 
35.00 
27.95 
24.95 
24.95 
35.00 


Brother/Dynax DX-15 
(Letter Quality) 


Gemini 10X 
Epson 

47.50 Cardprint B 
47.50 Numeric Keypad 


TO ORDER: CALL 1-714-643-1056 


8:00 A.M.-6:00 Р.М. PST Mon.-Sat. or send check ог 
credit card number, signature and expiration date. Please include phone number. 
Visa/Mastercard add 3%. Personal checks allow 2 weeks to clear. CA residents add sales tax. 
Shipping & Handling: UPS - $3.00; APO, FPO, Canada, US Mail - $4.00 


Call for Price Quotes of Products Not Listed. 
(hardware extra) Prices subject to change. 


C Itoh Prowriter 8510AP 


Zenith 12" Green Monitor 


27.00 


71.95 
89.95 
55.95 


139.00 


102.00 


Zenith 12" Amber Monitor 


125.00 


Call 
Call 
Call 
Call. 
39.00 
29.95 


New Standards 


In Home Learning 
Part 2 


Fred D'Ignazio, Associate Editor 


Now that computers are going into the schools in 
record numbers, we are finally realizing that we 
have gone about things all wrong. 

Before computers arrived in the schools, we 
should have laid some groundwork. 

Parents need to be briefed. Teachers need to 
be trained. Schools need some way to purchase 


software, course materials, books, and magazines. 


Teachers need some guidelines for purchasing 
new computers, new software, new computer 
equipment and materials. Standards and proce- 
dures for product review and evaluation need to 
be agreed on. 

Children need to be consulted. 


Parent Training 
The situation at home is even worse. 

Computers are popping up by the millions at 
home. Parents who don't know anything about 
computers are running out and buying software, 
materials, and equipment based on dealer recom- 
mendations, the pictures on the software pack- 
ages, and occasional reviews and recommenda- 
tions they see in magazines and on television. 

I think most parents are anxious and bewil- 
dered about computers. But they are also incredi- 
bly curious about what can be done. "How can 
my kids use this computer?" they are asking. 
“How can my kids use this computer to be happy 
and successful?" "What can my kids learn on this 
computer?" “How can my kids learn?" "How can 
this computer help my kids at home?" "How can 
it help them in their schoolwork, and prepare 
them for growing up?" 
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In school, people are finally realizing that 
teachers need in-service training in order to inte- 
grate computers fully into the schools. 

And if teachers are getting training, why not 
parents? 

Courses should be set up for parents to attend. 
The courses should be jointly created by teachers, 
computer vendors, parents, and children. The 
courses should concentrate on training parents on 
how to use computers as home-learning tools. 

Learning at home should be emphasized. Par- 
ents should not be taught to copy what teachers 
are doing at school. The situation is different at 
home. Parents should be given the information 
and skills they need to cope with the problems 
they face at home. 

A parent-training curriculum might include 
the following areas: 


ө Which computers best lend themselves to 
home learning? 


@ What are the best home-learning programs? 


ө Which new kinds of computer equipment 
can help home learning—like touch pads, 
light pens, speech synthesizers, and key- 
board overlays? 


ө What materials should come with software 
to help guide parents and to supplement 
computer learning? 


ө What are some basic guidelines to help 
parents evaluate home-learning software 
and materials? 


follow our path to 
the future of 
home computing. 


Welcome to the next generation of home computer software and 
hardware...from Futurehouse. We help you get the most out of your 
computer. The most personal productivity, the most education, 

the most entertainment. The most for your money. 

Follow our path to the future... 


For your financial future...the Complete Personal Accountant is an 
award-winning line of money management software. 


For your creative future...the Edumate Light Pen is a low cost, high 
performance peripheral which draws, entertains and teaches. 

It is rated the best in its price range and out performs even the 
most expensive light pens. 


For your child's future...Playground Software, our educational 
series, uses the Edumate Light Pen and S.A.M. (Software Automatic 
Mouth) to teach and delight your children. The series includes 
Alphabet Construction Set, a unique program that teaches children 
how to draw the letters of the alphabet. 


For your artistic future...with Peripheral Vision and an Edumate 
Light Реп уои can create sophisticated works of art on your screen. 
Choose from dozens of advanced graphics routines and then save 
your artwork to disk or print it on your printer. 


Let Futurehouse lead you into the future with quality products for 
your home computer. Contact your local dealer or order direct 
1-800-334-SOFT. Don't wait for the future...it's here. 


—H. 
РИ С=с 


Futurehouse products are available for Commodore 64/Vic 20, Atari, TRS-80 Color, апа ІВМ PC 
jr. computers. When ordering please specify computer, cassette or disk and memory. 


Complete Personal Accountant. Edumate Light Pen. Playground Software. and Alphabet Construction Set are trademarks of Futurehouse. Inc.. Box 3470. Chapel Hill. МС 27514. Com: 
modore 64/Vic 20. Atari. TRS:80 Color. and ІВМ PC jr are registered trademarks of Commodore Electronics. Ltd.. Atari, Inc.: Tandy Corp.: and International Business Machines Corp.: respec: 
tively. 


ө Which publications, catalogs, etc., bring 
the best new equipment, software, and 
materials to parents' attention? 


ө What techniques should parents use to 
actually shop for and purchase home-learning 
materials? 


ө What are the best local stores—in terms 
of service, hand holding, training, and 
dealer support? What are the stores with 
the nicest, gentlest salespeople—people 
who like and understand children and who 
know how to talk in English? 


€ How can parents set up “user groups” of 
fellow parents who are interested in teach- 
ing preschoolers, elementary-age children, 
or secondary-age children, or handicapped 
or learning-disabled children, or children 
who need help in science, social studies, 
language arts, math, reading, or writing, or 
kids who are talented or gifted? 


Learning By Surprise 

Thanks to the computer, learning at home will 
soon be as important as learning at school. But it 
can't replace school. Nor should it try. 

Computer learning at home should reinforce, 
complement, and supplement classroom-based 
education. Parents and teachers should work 
closely together to make sure that the mix of home 
and school learning is the most efficient mix pos- 
sible and in the best interest of their children. 
Coordination is crucial. 

The debate on home learning using com- 
puters has just begun. Most of the important sub- 
jects haven't even been covered—or discovered. 

Education at school can receive important, 
surprising boosts from home computers. For ex- 
ample, let's say a child is having trouble with social 
studies at school. The child has the aptitude for 
the subject but is utterly bored by the material. 
Boredom and lack of interest are reflected in the 
child's grades and behavior in the classroom. 

The parents could strap the child to a desk 
every night and require doing extra lessons and 
more time studying the boring textbook. Or 
they could purchase some of the new "social 
studies simulations" software. The software might 
turn the child into a cartographer to map out a 
newly discovered continent, or a population 
planner, or an advisor to President Lincoln during 
the Civil War. 

The most important thing the software could 
do for the child is bring the subject to life. It could 
awaken the child's interest and bring an excite- 
ment to the subject which could transform the 
child's whole attitude and performance in the 
classroom. 
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Sharing Your Experiences 


In upcoming columns I hope to explore some of 
the new dimensions of computer learning that 
take us by surprise. 

Also, I'd like to hear from you. If you or your 
children have learned from the computer in some 
novel, unexpected way, please share your experi- 
ence with me. Write: 

Fred D' Ignazio 
2117 Carter Road, SW 
Roanoke, VA 24015 


To demonstrate that there are new, un- 
explored dimensions of computer learning, І am 
gathering stories and experiences for future pub- 
lication in my various columns. I would love to 
hear from you! 


Learning As Entertainment 


Before you write me, I'd like you to think about 
something else, too. Then maybe you'll share 
your thoughts with me. 

Ithink that computer learning at home may 
soon cease to be called "learning." Instead, we 
might end up putting it under the category of 
entertainment. 

Think about it. The words education and learn- 
ing, for many adults and children, have a negative 
connotation. For them, the experience of learning 
is associated with pain, embarrassment, tedium, 
and boredom. 

Computer learning often isn't any different. 
But it can be. 

Computer learning can be made so pleasur- 
able, so joyous, and so rewarding that it may slip 
unnoticed into the category of "entertainment." 
It may become a new form of entertainment that 
feels good to a person at the same time it benefits 
and changes him or her in a substantial way. 

If home-learning programs are designed with 
enough imagination, subtlety, and respect for 
people, they may soon become more popular 
than videogames were in their heyday. Families 
will gather around the computer, like an “elec- 
tronic hearth." Instead of watching TV, they will 
spend many active, enjoyable hours together every 
evening learning new things on their computer. 

And they won't think of it as work, learning, or 
education. They will think of it as entertainment. 


Learning As Expression 
In one of my recent columns ("The New King Of 
The Mountain" in the February GAZETTE) I showed 
examples of how computers can boost a person's 
abilities in art. The person in my article was my 
four-year-old son Eric, and I wrote about the amaz- 
ing things he was able to do using the KoalaPainter 
art program and the KoalaPad touch tablet. 
Computers can open new doors into areas of 


self-expression we never knew existed. 

New programs like Music Construction Set, Micro 
Illustrator, MusiCalc, Delta Music, Fun Writer, and 
Word Vision, allow us to express ourselves in colors, 
shapes, and designs, in words, and in music. 

And we can start creating the moment we sit 
down at the computer! 

Gone are the hours of manual-reading just to 
learn how to use the computer. Gone are the ad- 
ditional hours needed to master the technical 
complexities of drawing, sight-reading musical 
scores, composing, or typing on a standard type- 
writer. 

With the right software, the computer can act 
as a booster and an amplifier for our skills and 
can enable us to directly tap our imagination and 
produce new creations in various media. 

Most of us, by the time we become adults, 
walk around with a little “editor” inside our heads. 
Whenever we do anything the editor reminds us 
that we are either good or bad at that thing. It 
tells us whether we are knowledgeable or ignor- 
ant, skilled or unskilled. It assesses our past efforts 
and predicts whether our performance will be 
graceful or awkward, and whether the results 
will be elegant or ugly. 

We pay close attention to our editor. Listening 
to the editor keeps us from making fools of our- 
selves in new situations. For example, by the time 
we are adults, if we haven't become accomplished 
musicians, writers, or artists, we shy away from 
these areas. We do not casually sit down with 
guitars, typewriters, or paintbrushes. We know 
how bad we'd look, and the Kind of trash we'd 
produce. We know because our editor tells us. 

But now we have a way of disabling that editor 
and, simultaneously, of being able to produce 
works of art that are beautiful and personally satis- 
fying. We сап do all this by using new kinds of 
computer tools. 


Just The Beginning 


But expressing ourselves is just the beginning. 
These programs should also act as a stimulus to 
get people learning more about the discipline of 
music, the discipline of art, and the discipline of 
writing. 

New programs should pick up where these 
programs leave off. They should be more than 
“builder kits" and "construction sets.” They 
should challenge us to a higher level of achieve- 
ment in each of these disciplines, while rewarding 
us with beautiful creations along the way. 

And why do we have to have construction 
sets for the arts? 

Why don't we see mathematics construction 
sets, physics construction sets, chemistry con- 
struction sets, and biology construction sets? 

How would you like to build a budding rose, 


design a working star, or construct an erupting 
volcano? How would you like to create a working 
model of the human heart? Or construct a gene, a 
DNA molecule, a bacterium, or a one-celled 
amoeba then bring it to life? 

The delight and thrill you'd feel wouldn't 
come just from the intellectual experience of build- 
ing a computer model of a heart, an amoeba, or a 
volcano. It would come from creating a beautiful, 
emotionally satisfying work of art—like creating a 
pretty picture or a moving piece of music. 

The computer's greatest value as a learning 
tool comes when it mixes process and product, 
when it blends the technical and scientific with 
the artistic, and when it frees us of inhibitions 
and taps our imagination, yet still challenges us 
to acquire more skill and do better. 

Learning by surprise, learning through en- 
tertainment, and learning by expression are some 
of the ways computers can help people learn. 
They are ingredients for profound and permanent 
learning. These ingredients and many more, as 
yet undiscovered, should be present when we 
use computers to learn at home. They should be 
included in new standards for computer-based 
home learning. 

My thanks to the many industry watchers 
who, through discussions during the recent Con- 
sumer Electronics Show, helped contribute to the 
ideas in this article. @} 


s 
C= COMMODORE: 64 
SE TURBE-UE -THE-MONTH GLUB® 
(division of O.C.S., Inc.) 
We guarantee you'll never again buy useless software for 
your personal computer. 
CLUB MEMBERSHIP OFFERS BIG SAVINGS 
Ф —— — ——————4€. NO OBLIGATIONS #— 


When you enroll you will 


a 


* Be eligible for our Bonus Point Plan— 
additional discounts applied toward 
purchases. 

* Receive our informative monthly news- 
letter full of helpful tips for getting the 
most from your Commodore-64. 

* Receive notice of Special Sales where 
you'll save as much as 50% off list. 


Keep only the software that you can 
use. Examine for a full 10 days; if it's 
not what you want, return it—with no 
obligations. 

Receive discounts up to 30% on your 
software choices. 


Because we support what we sell, 
our Technical Staff will assist you with any questions you may have. 


Enroll now and receive absolutely free Public Domain Software. 
se check [] Cassette [] Disk 


GREAT IDEA! I can't lose. Enroll me now in the Commodore-64 Software-of-the-Month 
Club. | understand there is no obligation. Enclosed is my $10 membership fee. 


0 Check Г] MoneyOrder 0) Bank Card 
Name EE -— 
Address EM 
City/State/Zip _ 
Visa/MO#. Expiration date 
Signature 
Cut out and mail today to 
+- A T ——— ————— 4 
SOFTWARE-OF-THE-MONTH CLUB 
Ohio Computer Services, Inc. 
Р.О. Box 128723 
Cincinnati, Ohio 45212 TETS 


Steven Rubio 


It'll never replace Freud, but “Therapy” may 
just cure your blues. For the expanded VIC-20 
and Commodore 64. 

е 22: TOY 


“Eliza,” the computer psychotherapist, is prob- 
ably the most famous of all programs dealing with 
artificial intelligence. Written in LISP by Joseph 
Weizenbaum in 1966, Eliza has run on computers 
of all sizes and types, including home computers 
programmed in BASIC, in the ensuing years. 

There is something fascinating about carrying 
on a seemingly reasonable conversation with a 
machine. I still remember the thrill when I first 
learned my VIC could ask me a question (what is 
your name?) and remember the answer. This thrill 
is what prompted me to write "Therapy." 


À Smarter Therapist 

Why another version of Eliza? Mainly because 
when written in BASIC, Eliza is extremely slow, 
taking as much as ten seconds to respond to your 
comments. It seemed to me that for a therapist, 
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Eliza was a bit stand-offish; and rather dumb, 
besides. 

The problem in BASIC is that Eliza tries for 
too much. Searches of fifty keywords and a 
hundred responses slow Eliza down; and in its 
attempt to give meaningful comments to all the 
user’s statements, it consumes a lot of time for 
only occasional, if spectacular, success. The off- 
the-wall pronouncements of Eliza often elicit 
laughter and vexation. 

This is all right, since Weizenbaum never 
intended the program to substitute for actual 
therapy. But when showing off your computer to 
friends at your next get-together, it might be fun 
to have a program to demonstrate your machine’s 
“intelligence.” 

Program 1 is Therapy for the 64. Program 2 is 
the VIC version, which requires memory expan- 
sion. Any amount of expansion (3K, 8K, etc.) will 
work. 

I would be glad to hear from any of you re- 
garding this program, or any similar ones you 
may have written. I can be reached on Compu- 
Serve, user ID #74105, 1477. 

See program listings on page 163. @ 


Introducing 
the first word processor 


made especially for the home 


TYPING AREA 


1. A POWERFUL WORD PROCESSOR ee 
* helps you be the best writer you can be 
* at a fraction of the price of most others 


EASY TO LEARN 
* audio cassette guide to the basics 
* instructions written in plain English 


3. EASY TO USE 


* pictures illustrate your choices 


VISUAL 
MENU 


HomeWord makes writing easy. 
Changing what you write is even 
easier. Since the commands are 
illustrated right on the screen, you 
don’t have to memorize any 
complex codes. 

Yet HomeWord’s simplicity is 
deceptive. Although easier to use, 
it offers you the power of more 
expensive word processors! 

Yes, HomeWord is the best buy 
for your money. . .and the best 
money can buy! HomeWord is 
available for only $69.95 on the 
Apple II, П--, Пе and Commodore 
64. Coming soon on the Atari! 


Features Include SATIRE LAGS 

* add, move and erase * automatic page numbering 
blocks of text * print documents of 

* automatic outline indents unlimited length 

* underline, boldface, upper * universal search апа 
and lower case replace 

ж reliable storage and * easy view of movement 

retrieval of all your files through your files 


TM designates a trademark of Sierra On-Line, Inc. © 1983 Sierra On-Line, Inc. Sierra On-Line Building * Coarsegold, СА 93614 * (209) 683-6858 


COMPUTE! Books 


COMPUTE! Reference 
Guide To 

Commodore 64 
Graphics 


А complete tutorial on 
Commodore 64 graphics. 
Noted Commodore author 
John Heilborn explains 
how to program sprites, 
multicolored screens, ani- 
mation, custom characters, 
and more. Beginners will 
like the step-by-step in- 
structions and clear ex- 
ample programs. Advanced 
programmers can build up. 
their tool kit with the character editors, sprite editors, screen 
design program, and other useful utilities. 

218 pages, paperback. 

Spiral bound for easy access to programs. 

$12.95 

ISBN 0-942386-29-9 


COMPUTE!'s Second 


Continues in the tradition 
of the best-selling First 
Book of Commodore 64 in 
presenting quality pro- 
grams and articles, many. 
revised or never before 
published. There's some- 
thing for almost any 64 
user: arcade and text ad- 
venture games, an impres- 
Sive word processor, a 
program which adds 41 
new BASIC commands, an 
electronic spreadsheet, sound and graphics tutorials, and 
information on saving, copying, and retrieving files. 

288 pages, paperback. 

Spiral bound for easy access to programs. 


$12.95 
ISBN 0-942386-44-2 


Mapping The 
Commodore 64 

An invaluable memory 
map. Complete details on 
the functions of pointers, 
the stack, ROM and Kernal 
routines, and more. BASIC 
programmers will find 
easy-to-understand expla- 
nations of advanced pro- 
gramming techniques. 
Programmers using ma- 
chine language will find a 
wealth of useful locations 
and ideas for program- 
ming. For intermediate to 
advanced programmers. 


288 pages, paperback. 
Spiral bound for easy access to programs. 


$12.95 
ISBN 0-942386-23-X 


COMPUTE!''s First 
Book Of 
Commodore 64 


An excellent resource for 
users of the 64, with some- 
thing for everyone: BASIC 
programming techniques, 
a memory map, a machine 
language monitor, and 
information about writing 
games and using peripher- 
als. Many ready-to-type-in 
programs and games. 


264 pages, paperback. 
Spiral bound for easy access to programs. 


$12.95 
ISBN 0-942386-20-5 


COMPUTE!'s First 
Book Of 
Commodore 64 Games 


Packed full of games: 
"Snake Escape," "Oil Ty- 
coon,” "Laser Gunner,” 
“Zuider Zee," and many 
more. Machine language 
games requiring fast hands 
and a good eye, as well as 
strategy games which will 
exercise your mind. Intro- 
ductory chapters and an- 
notated listings provide. 
ideas and techniques for 
writing games. An excellent 
introduction for 64 owners who want to begin writing games. 


217 pages, paperback. 
Spiral bound for easy access to programs. 


$12.95 
ISBN 0-942386-34-5 


9999 
D 


COMPUTE!'s Third 
Book Of VIC 

A potpourri of games, ар- 
plications, utilities, and 
programming techniques, 
some never before pub- 
lished. Tricks for saving 
memory, four games, 
budget planner, custom 
characters, PEEK and PRINT 
for the VIC, Graph Plotter, 
Music Composition, and 
Automatic Program Ap- 
pending are just a few of 
the fine programs and 
chapters. Also, appendices 
and reference tables. Third Book of VIC is a useful source of 
ideas for programmers of all levels. 

360 pages, paperback. 

Spiral bound for easy access to programs. 


$12.95 
ISBN 0-942386-43-4 


Creating Arcade 
Games On The 
Commodore 64 

This book develops anch 
explains the principles of 
game design; includes 
genera! programs for using 
the screen, custom charac- 
ters, animation, sprites, 
sound and music, and 
other features of the 64. 
Also includes five games. 
Just the book for program- 
mers who want to learn 
how to write fast, exciting 
arcade games. 


357 pages, paperback. 
Spiral bound for easy access to programs. 


$12.95 
ISBN 0-942386-36-1 


Commodore 64 Games 
For Kids 

Dozens of games for kids 
of all ages. An instant library 
of educational software. 
“Stargazer” displays the 
constellations of the night 
sky. "Movers and Shakers" 
tests knowledge of histori- 
cal figures. "Hidden Pic- 
ture" lets children uncover 
a series of drawings. Also, 
games featuring music, 
spelling, and world geo- 
graphy. Appropriate grade 
levels are clearly identified. 


64 
GAMES 
FOR KIDS 


267 pages, paperback. 
Spiral bound for easy access to programs. 


$12.95 
ISBN 0-942386-37-Х 


COMPUTE! Publications,nc. % 


One of the ABC Publishing Companies. 


Post Office Box 5406, Greensboro, North Carolina 27403 


Spelling Critter 


Bob Nickel 


The “critter” does his thing when the word is spelled correctly 
(VIC version). 


This spelling program lets your child choose 
the words in the quiz, and features an animated 
critter which keeps track of right and wrong 
answers. For the VIC-20 and Commodore 64. 
RRA 


One of the great uses for the home computer is 
education, and a wide variety of educational pro- 
grams are available for the VIC-20 and Commo- 
dore 64. The only exception is spelling programs. 
If you have ever tried to put your kids’ spelling 
list into someone else’s program, then you know 
what I mean. 

This is the magic of "Spelling Critter.” The 
program actually asks you what words are to be 
used. This way the kids will be more likely to use 
iton their own. 

There are three main parts to the program. 
Line 50 sets up an array to store the words. Lines 
5000-5300 input the words with a FOR-NEXT 
loop. Lines 100-120 get the words back, one at a 
time, with another loop. 


А Random Quiz 

If you want the words to come up in a random 
pattern, the following changes should be made. 
All the words may not be displayed, however. 
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TO REUIEH THE HORD PRESS ? KEY 


HOW DO VOU SPELL THAT KORD 
= RYLOPHON 


1°Н SORRY, THAT IS WRONG JOSEPH 


THE CORRECT ANSHER 15: XYLOPHONE 


In this 64 version, а correct spelling is given. 


100 B=INT(RND(1)*N)+1 
110 Z-Z41 
470 IFZ-N THEN 500 
480 GOTO106 

The critter is built in lines 20-32. There are 
actually three parts to the critter, one tail and two 
heads. You will not see one of the heads, but it is 
needed for the chomping effect. This is all done 
with a programmable character routine, which is 
extremely easy on the VIC. The Programmer's Ref- 
erence Guide goes into this in depth (pp. 82-88). 


Animation Subroutines 


There are two subroutines for the animation. Lines 
7000—7080 move the critter for a correct answer 
while lines 8000—8080 are the animation for a 
wrong answer. Lines 100-160 display for one sec- 
ond, which is enough time to read the word, but 
not long enough to memorize it. 

The rest of the program should be self- 
explanatory. The program will accept up to 50 
words. Each word can be up to ten letters long 
without exhausting the memory of the unex- 
panded VIC. 

Try the critter on your kids. It fills an impor- 
tant spot in educational programming and can be 
downright fun. 

See program listings on page 167. @} 


* HOW-TO Information 
on expanding your system 


* GAMES - The newest, the best, the most 


* GIANT Software Directory 
over 500 descriptions 


* Peripherals and Accessories 
Hundreds of items: printers, joysticks, 
disk drives, plotters, modems, monitors 
& much more! 


* DISCOUNTS! And Eásy Order Info 


€ TENEX Computer Marketing Systems, Box 6578, South Bend, Indiana 46660 


AN C-64 VIC-20 nr 
= * HOME COMPUTER / — — 


GET IT 


FREE! 


Just Call Us Toll-Free 
1-800-348-2778 


Or send your name and address to: 
TENEX, Box 6578, South Bend, IN 46660 
(219) 277-7726 


Shape Match 


Michael Reich 


Do you have a preschooler who demands time 
on the computer, but can't handle complicated 
software? "Shape Match" teaches pattern rec- 
ognition, and it's easy to use. For the 64 and 
expanded (8K +) VIC. 


In Shape Match, a child has to match the shape 
on the screen with one of four other shapes. It's a 
good idea for an adult to sit with the child while 
the game is running, to provide suggestions (and 
praise when the answer is right). 

A simple idea can lead to complications, 
however. 

A young child is not capable of handling a 
joystick or moving a cursor around the screen 
with keyboard controls. And yet there must be a 
way for the child to indicate his or her choice. 

The answer is to have the program point to 
the different answers. The child presses a key to 
make a guess. Lines 600-687 move the colored 
box from answer to answer and periodically go to 
the subroutine at 700 to see if a key has been 
pressed. 

Another difficulty is how to figure out 
whether the child is right or wrong. Of the four 
possible answers, only one is correct. How does 


The program cycles through the patterns waiting for the 
child's guess (VIC version). 
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the computer know which one was picked? The 
solution is an array (lines 60 and 70). The computer 
checks which box is lit, compares it to the array, 
and decides if it is the right answer. 

Shape Match was written for the Commodore 
64, although it will run on a VIC-20 with 8K or 
more of memory expansion. 

For those who might want to add music or 
other features, here is a breakdown of the program: 


See program listing on page 180. 


ТҮРЕ (0) TO QUIT. 


A correct answer is given in the 64 version. 


| 


Ат LAST!! А REAL FLIGHT SIMULATOR!!! 


-C 


MieroProse Software 


in 
Сас, 


апЁТтег 


RACAED 


gSetnamhi (11. 


Word 
cramble 


Mike Salman 


Match wits with an opponent in this game as 
you play against time. For two or more players, 
VIC and 64 versions are included. 

ds) 


“Word Scramble” is written for two players, but 
you can make up teams and enter the names of 
the team captains as the two players. The com- 
puter first asks you for the names of the players. 
It then instructs player one to enter a common 
word (maximum ten letters). 


А Three-Minute Puzzle 

When the word has been scrambled, player two 
presses the space bar to see the scrambled letters. 
Тһе player has three minutes to discover the word. 
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At the top of the screen, a display of the 
elapsed time appears, followed by the scrambled 
word. Below the scrambled word, a bar appears, 
on which you type the first letter of the word. If 
you type the wrong letter you hear a buzz. Type 
the right one and you hear a beep; the letter then 
appears on the screen. 


А Ten-Point Penalty 
If you find the word within the allotted time and 
have made no wrong guesses, you are awarded 
fifty points. For every wrong guess that you make, 
you lose ten points. A scoreboard is displayed 
every second turn so you'll know when both 
players have played an equal number of rounds. 
See program listings on page 170. @} 


Look at these 
Features 


Fully screen-oriented 


€ Horizontal and vertical scrolling 


ө Terminal mode — never seen before on a wordprocessor 


€ Supports Commodore disk and cassette handling 


€ imbedded commands 


BLIZTEXT 


WORDPROCESSOR 


FOR THE 


COMMODORE 64 


BLIZTEXT — SUPER WORDPROCESSOR 
for the Commodore-64 
— ONSALE NOW! — 


ө Fully screen-oriented, up/down, left and right 
scrolling — Upper and lower case 

© More than 70 commands 

ө Full 1/0 compatibility with Commodore peripherals 
Upper and lower case 

€ Works with practically every printer on the market, 
user definable printer control commands. 

Ф INCLUDE command allows handling large files 
on up to 4 diskettes or on cassette. 

© Build in terminal software for electronic mail and 
networking. Telecommunications mode, upload and 
download, save on disk or cassette. 

€ Dynamic formatting, Imbedded commands 

© Single keystroke for disk directory and error channel 
Program comes on disk or cassette 

Ф Double line spacing, left and right margin justification, 
centering, page numbering, and practically everything 
one expects from a good wordprocessor. 

AVAILABLE NOW! 


Order #4965 $89.00 
Manual only (62 pages) $29.95 
MACROFIRE - 


Editor/Assembler for the Commodore-64 
ON SALE NOW 
AVAILABLE IMMEDIATELY 

One outstanding tool, consisting of 3 powerful elements 
combined into one efficient program! 

1. Fully screen-oriented Editor (more than 70 

commands) 

2.) Very fast assembler with macro capability 

3.) Machine Language Monitor. 
Assembly can be started from the editor. Translates in 
3 passes. More than 1,000 lables, screen oriented/no line 
numbers, scrolling, includes disk files. 
Practically everything the serious machine language 
programmer needs everyday! 
Manual only 
Order #4963 2 


$19.95 
589.00 


Commodore-64 and 
VIC-20 are trademarks 
of Commodore 
Business Machines. 


THE GREAT BOOK OF GAMES, VOL.I, 

by Franz Ende 

46 programs for the Commodore 64 

Introduction to graphics and sound. How to program 
your own games. Walking pictures, animation, high 
resolution graphics, programming tips and tricks, hints 
and useful subroutines for the beginner and advanced 
programmer. This book is a MUST for every C-64 owner. 


Come and get it — It's yours for only $ 9.95 
Order #182 128 pages $9.95 
Programs from the book on disk. 

Order #4988 $19.95 


MORE ON THE SIXTYFOUR, by Н.С. Wagner 
How to get the most out of your powerful Commodore 
64. Very important subroutines, tricks and hints in 
machine language for your С-64. How to modify DOS. 
How to connect a parallel and serial printer. How to 
design your own terminal program for communication 
and networking. Dig into 1/0 for cassette and disk. 


Order #183 $9.95 

Programs from the book on disk 

Order #4989 $19.95 
NEW PRODUCTS 


Watch out for our new books, software and add-ons to 
come soon. ON SALE NOW! — ORDER TODAY! 


How to program in 6502 Machine Language on 
your C-64 ,byS. Roberts (Introduction) 
Order-# 184 $12.95 


Commodore-64 Tune-up, Vol. 1, by S. Roberts 
How to expand and customize your C-64. 

Order #185 512.95 
Small Business Programs for the Commodore-64 
by S. Roberts 

How to make money using your C-64. Mailing list, 
invoice writing, inventory, simple wordprocessing and 
much more. 

Order # 186 $12.95 


Dealer and Distributorinauiries are invited. 


PAYMENT: check, money order, VISA, MASTER 
CARD, Eurocheck, ACCESS, Interbank 
Prepaid orders add $3.50 for shipping (USA) 


55.00 handling for C.O.D. 


All orders outside USA: add 15 % shipping, Califor- 


nia residents add 6.5 % sales tax. 


BLIZTEXT isa 
trademark of ELCOMP. 
PUBLISHING, INC. 


Hardware Add-Ons: Ф 
Parallel printer interface KIT Order #4990 8 19.95 
Universal Experimenter Board Order #4970 5 9.95 
Expansion Board, space for four ex- 

perimenter boards(board only) Order #4992 $ 29.95 
Tricks for VICs, No. 176 $9.95 
Universal Experimenter board for VIC $9.95 


Intreduétion to 
Maching Language 
Lor tlie : 
BASIC Programmer 


Book No. 184 


$12.95 Book No.182 $9.95 


NEW Products for the 
SUPERMAILING (D) 
Order No. 4962 $49,- 
Superinventory (D) 
Order-No. 4961 S 49,- 
BUSIPACK 1 (D) 
Order-No. 4963 $99,- 
SixtyFORTH (D) 
FigFORTH for C-64 
Order-No. 4960 539,- 


For your VIC-20 
Tricks for VICs 
Order-No. 176 59.95 
Universal Experimen- 
A х ter board 

.183 $9.95 Order-No. 484459.95 


ELCOMP PUBLISHING, INC 
53 Redrock Lane 
Pomona, CA 91766 
Phone: (714) 623 8314 

Telex: 29 81 91 


Book No. 


THE ВЕСІММЕН”5 CORNER 


C. REGENA 


Planning А Game Program 


This month, let's explore a step by step procedure 
to write a game. To keep it simple, yet worthwhile, 
we'll create “Тіс-Тас-Тое.” It's easy to understand, 
and everyone knows the game, but programming 
it involves graphics, logic, and strategy. 

I started out with the graphics. Tic-Tac-Toe is 
graphically simple, an X marker, an O marker, 
and four straight lines. On the Commodore 64, I 
let the X and O markers each take up a pattern 5 
characters x 5 characters, so the basic game grid 
needed spaces 7 x 7. On the VIC, we have larger 
characters and fewer characters per line, so I chose 
X and O markers 4 x 4, and the grid needed 6 x 6 
spaces. 


Creating The Grid 


The grid lines are made up of solid blocks one char- 
acter wide (the reverse space). You can either PRINT 
the grid or usea series of POKEs to place the colored 
squares on the screen. I chose to use the POKE 
method. First the screen is cleared and a random 
color chosen for the grid, in line 790 of the 64 version 
(line 38 in the VIC version). The random color on 
the 64 can be one of 14 colors, but not black or white. 
(You couldn't see a white grid, and I didn't like 
black.) On the VIC there can be six colors, but not 
black or white. 

The grid is drawn in lines 800-870 (39-40 in the 
VIC version). In the 64 version, the variable A is 
previously defined as 160, the screen code for a 
reverse space, or a solid block of color. To draw on 
the screen, you need to POKE a screen location 
with 160, then POKE the corresponding color loca- 
tion with the color. The variable C relates the screen 
memory location to the color memory location. 
Lines 880-890 (VIC line 41) place numbers in the 
positions to be chosen as plays are made. 

The X and O markers are drawn in subroutines 
at the beginning of the program, lines 120-280 (VIC 
2—7). The nine coordinate positions for the markers 
to be drawn are READ in as S(I) in lines 590-610 
(VIC 28-29). The graphics are now complete. 

Next I programmed the player moves. The 
squares are numbered so the player just presses a 
number from 1 to 9. 1 like to avoid INPUT if at all 
possible. In this case only one key press is necessary, 
so we can use GET. You could also use PEEK, but 
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GET is easier to understand. GET E$ gets the key 
pressed, and we need to make sure the key is one 
of the numbers from 1 to 9. All other keys are 
ignored. 


Plotting The Move 


VAL converts the string E$ toa VALue, the number 
E. P(E) is the value in that position on the grid—3 
for an X, 1 for an O, and 0 if there is no marker in 
that position. If there is already a marker on the 
position chosen, the player must choose again. If 
the square is available, P(E) is set to 3 or 1, S(E) is 
the coordinate of the position, and the appropriate 
marker is drawn. This process is in lines 980-1000 
(VIC 47-49). 

Next it's the computer's move. For the beginner 
level I just let the computer randomly choose 
any one of the available spots, lines 930-950 (VIC 
44—45). 

Since the value of N or X changes between 
moves and can be either 1 or3, the relative formula 
is N= ABS(N-4), line 540 (VIC 27). 


Is The Game Over? 


After each marker is placed, the computer checks 
to see if the game is over. First the rows are 
checked to see if there are three X's or O's ina 
row, lines 360-400 (VIC 12-16). Next the columns 
are checked to see if there are three the same in a 
column, lines 410—450 (VIC 17-21). Next, diagonal 
wins are checked, lines 460-480 (VIC 22—24). If 
there isn't a win, all spaces are checked. If all 
spaces are filled, it is a tie game. If there are 
empty spots, the game continues, lines 490-530 
(VIC 25-27). 

If there is a winner, the program branches to 
lines 1540—1700 (VIC 89—97), to congratulate the 
winner and play a tune made up of random notes. 
The program then offers the option to try again 
and branches appropriately. Lines 570 and 640 
(line 31 of the VIC version) set variables for playing 
the music and the prompter beep, and the sub- 
routine in lines 290-330 (VIC 8-9) plays the tone 
and delays. 

The game could be complete now, but it 
wouldn't be very challenging because the com- 


TIMEWORKS 
HOME MANAGEMENT SYSTEMS. 
4 EASY WAYS TO GET 


YOURSELF ORGANIZED. 


The Money 
Manager 


We'll handle your 
budget. Your check- 
book. All your ad- 
dress lists, recipes, 
club, client, and 
vendor lists. And make your life 
infinitely easier. 

There's almost no end to what our in- 
credibly easy-to-use Home Manage- 
ment programs can do to help you get 
yourself together. 


TIMEWORKS MONEY MANAGER. 


Our home and business budget and 
cash flow systems let you input sixteen 
budget and actual categories on a 
monthly basis, for a 12 month period 
Provides full analysis, including 
budget and actual comparisons, 
plus detail by individual categories 
Bar charts provide a graphic rep- 
resentation of your budget and 
actual amounts for each period. 

Because the Money Manager 
can be interfaced with Timeworks 
Electronic Checkbock, you can 
transfer actual expenditures through 
your computer to your budget 
program, too. 


TIMEWORKS ELECTRONIC CHECKBOOK. 


Acomplete system that organizes and 


records your transactions, and computes 


The Electronic 
Checkbook’ 


your checkbook 
balance automatically. 
It sorts and recalls your 
transactions in a 


number of ways: by 
» date, description, or classification to name 
just a few. Our exclusive X-SEARCH 
5 feature is a big help at tax time, because it 
"73 lets you cross search any category easily. 


TIMEWORKS DATA MANAGER AND 
DATA MANAGER 2. 


Throw away your index cards and cluttered 
files. These menu-driven programs let you 
store and retrieve a wide variety of important 
lists, data, and information. X-SEARCH allows 
cross searching through any category to 
locate specific groups of items easily. Statis- 
tical analysis is also possible for any 
statistical data entered into the system 
There's more to every Timeworks Home 
Management System than you've ever 
seen before. Much more. (We've only 
touched on the highlights.) So get yourself 
organized. Get Timeworks 


FOR COMMODORE 64, IBM PC, PC Jr. 
AND COMPATIBLE COMPUTERS. 


Now at your favorite dealer. For further information, 


y contact Timeworks, Inc., 405 Lake Cook Road, 
4 Deerfield, IL 60015. 312-291-9200 


| ©1983 Timeworks, Inc. All rights reserved. *Registered trademarks of 
N Commodore Computer Systems and International Business Machines. 


сон ик 
Dragons 


A tie game offers another round (VIC version). 


puter's moves are chosen randomly—no strategy 
involved. Now we need to add an intermediate 
level of play and some method of choosing the 
computer's moves. I'm calling this an intermediate 
level so you can add your own advanced level and 
perhaps a more sophisticated way of winning. 


The Computer Gets Smarter 

The computer's intermediate level of play is in 
lines 1030-1530 (VIC 51-88). The strategy I used | 
was first to get the center spot if it is available, 
line 1060 (VIC 52). On later turns, if the computer 
has the center spot, it checks for possibly winning 
by filling the two diagonals. 

The columns are checked in lines 1130-1200 
(VIC 58-63). If an opposing marker is in the col- 
umn, the column is ignored. If there isn't an ор- 
posing marker, there is a check to see if two of the 
computer's markers are in the column. If so, a 
marker is placed in the remaining spot to win. 
The rows are checked similarly in lines 1210-1280 
(VIC 64—69). 

If the computer doesn't spot a winning pos- 
sibility, it will then check to prevent the oppo- 
nent's winning. If there are two of the opponent's 
markers in any column, row, or diagonal, the 
computer will block the win, lines 1290—1490 (VIC 
70-87). 

If the computer does not spot a column, row, 
or diagonal with two like markers in it, the com- 
puter just chooses a place at random. 

You can probably follow the logic in the 64 
version, but I had to take out the REMarks to save 
memory in the VIC version. In the IF-THEN state- 
ments, P(K) will contain the value of the marker 
in a particular position, number K, where K is 
one of the nine positions. P(K) can be 0 if no marker 
is there, or 3 or 1 if a marker is there. After THEN 
you can set E to the position chosen, then GOTO 
a different line. 
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Standard characters make a clear display (64 version). 


CLR Or Crash 


I used the command CLR if the option to play again 
is chosen. This command clears the memory of all 
variables and unsatisfied FOR-NEXT loops and 
GOSUB-RETURNSs. Without CLR, after several 
games I would get an OUT OF MEMORY message, 
which can be caused by too many nested FOR-NEXT 
loops or too many GOSUBs in effect. Notice that 
the IF statements transfer control out of FOR-NEXT 
loops and out of subroutines. 

The last step of programming was to add the 
title and instructions at the beginning of the game. I 
usually PRINT the title and instructions as I am 
defining variables for the program. The title and 
instructions are in lines 560-690 (VIC 28-31). The 
options of markers and level of game are in lines 
700—780 (VIC 32-37). 

The program isn't complete until you test it. 
Game programs usually involve quite a bit of testing. 
You need to check all types of player input—right 
choices, wrong choices, other keys. In this particular 
game I had to check the player choosing first move 
or second move and beginner level or intermediate 
level (all combinations). I also checked the player 
winning, the computer winning, and a tie game. 
The supreme test is to have someone else try the 
game for you. 

If youare typing in the VIC version of this game, 
be sure to leave out all unnecessary spaces. Notice 
that the lines are numbered by ones to conserve 
memory. 

If you wish to save typing effort, you may obtain 
a copy of Tic-Tac-Toe by sending $3, a blank cassette 
or disk, and a stamped, self-addressed mailer to: 


C. Regena 

P.O. Box 1502 

Cedar City, UT 84720 
Be sure to specify the title and which computer 
version you need. 

See program listings on page 171.8) 


“Now Your Commodore 64” 
Can Print Like a Pro!" 


Grapple с) 


Printer Interface 


The Revolutionary Printer Interface for the Commodore 64™ 


A New Era in 
Commodore Printing Power. 


Grappler CD offers the first complete answer to 
your printer interfacing requirements, with many 
powerful capabilities unique in the Commodore 
marketplace. Complete signal translation allows 
many popular name brand printers to operate 
perfectly with the Commodore 64, or to imitate 
Commodore's own printer. Even Commodore's 
graphic character set can be reproduced on 
Epson, Okidata, Star, ProWriter and other popular 
printers. 

Exclusive Grappler CD features provide a variety 
of graphic screen dumps, text screen dumps and 
formatting. No other Commodore interface can 
offer this. 


If you own a Commodore 64... 
If you're serious about quality, trouble free 
printing... You need the Grappler CD. 


Contact your nearest Commodore dealer or call 
Orange Micro for a dealer near you. 


Commodore 64 and Commodore 1525 are trademarks of Commodore Electronics Limited. 
Epson is a registered trademark of Epson America, Inc. 


A Uniquely Intelligent Interface: 


* Prints Screen Graphics Without Software 

* Graphics Screen Dump Routines Include 
Rotated, Inversed, Enhanced and Double Sized 
Graphics. 

* Full Code Translation From Commodore's PET 
ASCII to Standard ASCII, the Language of Most 
Printers. 

* Complete Emulation of the Commodore 1525 
Printer for printing of Commodore's Special 
Characters. 

* Dip Switch Printer Selection for Epson, Star, 
Okidata, ProWriter and other popular printers. 

* Conversion Mode for Easy Reading of Special 
Commodore Codes. 

* Text Screen Dump and Formatting Commands 

* 22 Unique Text and Graphics Commands 


W Orange Micro 


1400 N. LAKEVIEW AVE., ANAHEIM, CA 92807 U.S.A. 
(714) 779-2772 TELEX: 183511CSMA 


© Orange Micro, Inc., 1983 


AS 


iu 
CHARLES BRANNON 
PROGRAM EDITOR 


Let's start out this month with a look at a great 
game: Blue Max. 

Maybe you've played Zaxxon. Your ship 
scrolls through a3-D playfield as you bomb planes, 
silos, and enemy aircraft. You can move up or 
down in space as well. And to help you gauge 
your perspective, your ship even has a little 
shadow. 

Blue Max has a similar concept, but instead of 
a spaceship, you're flying a World War I biplane. 
As you fly over scrolling enemy territory, you can 
bomb, strafe, shoot down enemy planes, even 
land and take off from a runway. Blue Max has far 
more depth than Zaxxon. It's one of those few 
good games that have successfully combined 
strategy with arcade play. 


Takeoff 


When you start the game, you taxi your plane to 
the end of the runway. When your speed reaches 
100 mph, push up on the joystick to take off. If 
you haven't gained enough speed, though, your 
plane will stall and crash. 

You can control your plane in two ways. In 
one mode, you push up on the stick to go up and 
pull back to go down. This is opposite of actual 
airplane joystick controls. (Yes, "joystick" is an 
aviation term, too.) There is another mode that 
behaves in a standard way—pull back to climb, 
push forward to descend. You can also choose 
various skill levels, and whether or not to obey 
the law of gravity. If you turn on the gravity, your 
plane will gradually descend if you let go of the 
joystick. With no gravity, your plane more or less 
hovers as it flies. 

There's a lot of detail here. The scrolling 
playfield is colorful and full of targets like build- 
ings, bridges, cars, boats, tanks, guns, runways, 
even the enemy city. To bomb, you pull back on 
your stick while you press the fire button. To 
strafe, you go to a low altitude (the command 
window turns red) and press fire. 
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™HORIZONS: 64° 


There are many status indicators to keep an 
eye on, just as in real flying: speed, fuel, altitude, 
and damage. The status window at the bottom of 
the screen keeps you informed. It normally has a 
black background color, but will turn red if you 
fly low, yellow if you’re too low (impending crash) 
and blue if you’re at the same altitude as an enemy 
plane (ripe for the picking). 

Periodically, a big letter P announces that an 
enemy plane is in the area. You align yourself 
with it and press fire as you try to hit it with your 
guns. Be careful not to crash into the plane or the 
game's over. You only get one "life." W tells you 
that a strong wind is blowing, and L signals a 
friendly runway. Smaller letters also light up to 
warn you of damage to the guns, bombs, your 
maneuverability, or the fuel tank. If you have 
damaged something, it will work intermittently, 
if at all. The only way to make repairs is to land at 
a friendly runway. 

When L shows up, begin your approach. 
Landing is quite difficult —you'll probably crash 
the first time you try it. Come in low and try to 
land at the start of the runway. Your speed will 
drop radically, then you will roll to a stop. Fuel 
tanks are filled and any damage is repaired. You 
then make another takeoff. 

Be sure to give yourself plenty of runway, 
though, or you'll crash into the trees. And if you 
run out of fuel, you'll have to glide until you crash 
(most likely) or luck onto a runway. 

The point of the game, besides the fun of 
being airborne, is to shoot enough targets so that 
you can advance to the enemy city. At the city, 
you have to bomb a statue. If you can do this, 
you'll be awarded the Blue Max medal. Otherwise, 
you'll have to be satisfied with rankings like "Run- 
way Sweeper, Class One." 

Blue Max 

Synapse Software 

5221 Central Ave. 

Richmond, CA 94804 

$34.95 disk or tape 


If you've been having a hard time 

teaching your newly-adopted computer 
there's more to life than fun and games, 
yourre not alone. 


Now, you can introduce your Commodore 647" to the Work Force: affordable, easy-to- 
use software and hardware that will unleash the power you always expected from your 
Commodore 64™, but thought you might never see. 


PaperClip™ 
is simply the best word processing program of its 
kind—loaded with advanced features, yet so easy to 
use even a novice can get professional results. With 
SpellPack”, it even corrects your spelling! Once you've 
tried it, you'll never use a typewriter again. 


The Consultant™ 

(formerly Delphi's Oracle) 
is like a computerized filing cabinet with a 
brain. Organize files for recipes, albums, 
or the membership of your service club. 
Then search, sort, arrange and 
analyze your information with speed 
and flexibility that's simply astounding. 


SpellPack™ 


teaches your 64 to spell. It checks an entire 
document in 2 to 4 minutes against a 
dictionary of over 20,000 words. And you 


can add up to 5,000 of your own Batteries Included—the company that 
specialized terms. Type letter perfect every doesn’t leave anything out when it comes 
time! to making things simple for you. 


BATTERIES INCLUDED 


“Excellence in Software” 
These products have been developed specifically for Commodore computers by Batteries Included and are totally compatible with each other. For a full color brochure write to: 
186 Queen Street West, Toronto, Canada M5V 121 (416) 596-1405 / 3303 Harbor Blvd., Costa Mesa, CA. 92626 (714) 979-0920 
64 AND COMMODORE 64 ARE REGISTERED TRADE MARKS OF COMMODORE BUSINESS MACHINES 


BusCard II " 


is a magic box that lets you transform your humble 
home computer into a powerful business machine. It 
gives you the added power of BASIC 4.0, and lets 
you add IEEE disk drives, hard disk, virtually any 
parallel printer, and other peripherals without extra 
interfaces. Completely software invisible. 


B.I.-80 " Column Adaptor 
gives you crystal clear 80 column 
display. Using the highest quality 
à hardware, we've eliminated the problems 
of snow, fuzziness and interference. 
Basic 4.0 commands greatly simplify 
disk drive access. Switches easily from 
40 to 80 column display. 


Discover the true power of your 
Commodore 64™. Ask your dealer about 
the Commodore 64™ Work Force, from 


Apple Emulator For The 64? 


We've heard the claims before about a device that 
lets you run Apple programs on your 64, but it's 
always been a pipe dream. Your 64 can easily 
match any Apple graphics, but the screen storage, 
ROM routines, graphics calls, beep sound, disk 
format, and joystick interfaces are totally incom- 
patible. The goal of an Apple emulator is to let 
you just insert an Apple disk, turn the power on, 
and begin to use the software, whether itis a word 
processor, arcade game, or an accounting package. 

The only way this is possible is to actually 
have an Apple. Sorry. The second best thing is to 
plug an Apple into your 64. That's right. A whole 
Apple on a single cartridge that would plug into 
your 64. You see, that's the only way to get true 
compatibility. You could make an Atari VCS, or 
even an old shoe run Apple programs with enough 
hardware. And whether you plug it into your 64 
or a pair of penny loafers, it's still an Apple. And 
it can't be very cheap. 

Given that it's theoretically possible, it should 
be available, right? Well, you can buy an Apple 
emulator. It's called the AP Modular Pak, and it's 
made by a Canadian company called Pioneer Soft- 
ware. You get an expansion box, with eight Apple 
expansion slots and four 64 expansion ports. A 
CPU card plugs into the box. It's the magic one—it 
makes the Apple software work on the 64. You 
also need an AP DOS card, which actually converts 
your 1541 drive into an Apple-compatible one 
(quite a feat!) The whole system is $525. If we're 
able to obtain a review unit, we'll give you the 
details on how it works, and how well. 

The price tag is a bit steep—let's face it, it's 
three times as much as most of you paid for your 
64. But it does let you use your existing equipment 
and disk drive as a second computer. Even if you 
buy the AP Modular Pak, is there really some 
Apple software you want to run on your 64? 64 
games are far superior to Apple games (sorry, 
Apple fans—maybe you can plug a 64 Pak into 
your computer one day). There's a great deal of 
software for the 64 that was engineered especially 
for your computer. All the major Apple programs 
are available in versions for the 64 anyway. But if 
you want to own both worlds, maybe the Pak's 
for you. 


PCjr Vs. Commodore 64 


Recently, l've been working with IBM's new PCjr, 
and have had a chance to compare it with other 
computers, including the 64. Both of them are 
home computers. Which is best? I knew you'd 
like that question. Of course, no one computer is 
^ best," but some are more suitable than others 
for certain applications. (For games, the 64 wins 
hands down, though.) I really like both com- 
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puters. First, let's compare them on equal terms: 


Commodore 64 with 64K, 1541 disk drive 
PCjr Entry Model, 64K, disk drive 


Commodore 64 system price: about $450 
РСТ system price: $1149 
Other comparisons: 
Graphics 
64: 320 x 200 (high resolution), 160 x 200 (medium 
resolution). 16 colors simultaneously in text mode. 


Upper- and lowercase, or a complete graphics 
character set. Sprites. 


PCjr: 320 x 200 in as much as 16 colors simultane- 
ously. 640 x 200 high resolution. 40 columns in 
text mode with 255 possible character attributes in- 
cluding independent foreground and background 
colors. 80-column capability (optional). Some 
graphics characters. Beautiful, sharp RGB color 
capability (but expensive). No sprites. Repeat: no 
sprites. 

Sound 

64: The one and only SID chip with three voices, 
16-bit resolution, waveforms, ring modulation, 
synchronization, filtering, and more. 


PCjr: A TI sound chip, just like the one in the TI-99/ 
4A. IBM calls it a sound synthesizer. Ahem. Three 
voices with independent volume control with a 
12-bit range. White noise. 


Keyboard 

64: 66 keys, typewriter style. Full travel, full size. 
Four function keys with eight states. Soft reset 
key. Cursor and editing keys. 


PCjr: 62 keys. Some call them chiclets, but they're 
not that bad. The smaller than normal keys have 
full travel, and can accept overlays that can fully 
redefine the keyboard, so there’s no lettering on 
the keycaps. Cursor and editing keys. Cold reset 
available from the keyboard. IBM calls its keyboard 
the Freeboard. There’s a cordless infrared link 
between the keyboard and the system unit. No 
dedicated function keys, but ten keys can act as 
function keys. Can generate all IBM key codes. 


Input/Output 

64; Proprietary serial bus for disk drive, printers, 
and other Commodore devices. Expansion port 
with all bus signals (also acts as cartridge slot). 
Parallel user port with RS-232 capability. Two 
digital joystick ports which can also accept a light 
pen or four paddles. Audio/video port and built-in 
RF modulator for TV. Cassette port for Commo- 
dore tape drive. Up to four 1541 disk drives with 
170K storage each, single-sided. CP/M capability. 
PCjr: Built in ports provide TV output (modulator 
extra), color monitor output, RGB output, two 
64K cartridge slots, RS-232 serial, light pen, two 
analog joystick ports, cassette port for an audio 


to use spelling check 
1 a standard dictionary expand: 
Q00 words. SpellPro 64 
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RD WRITER 


The RD WRITER is a “back to basics” word processor for the Commodore 64". Designed as an 
educational tool for all ages, the RD WRITER is simple enough to be learned by a child and yet 
sophisticated enough to handle an adult’s word processing needs. 


FEATURES: 


e MENU DRIVEN 

e STATUS LINE 

e FORMATTED PRINTING 

e MARGIN RESET 

e UP TO TWELVE PAGES PER WORKING FILE 


SYSTEM REQUIREMENTS: 
e COMMODORE 64 
e DISK DRIVE 
e MONITOR with 80-COLUMN CARD 


SYNERGY SOFTWARE, INC. 
Р.О. BOX 131, М.І.Т. BRANCH 
CAMBRIDGE, MA. 02139 


Includes manual and money-back guarantee 


Commodore 64™ is a trademark of Commodore Electronics Inc. 


e WHOLE-SCREEN EDITING 

e TEXT INSERTION / DELETION 
e MOVE TEXT BLOCKS 

e AUTOMATIC WORDWRAP 


e TUTORIAL 
Геву SOFTWARE INC il 
SYNERGY SOFTWARE, INC. 
T ро. Box 131, МІТ. BRANCH I 
| CAMBRIDGE, MA. 02139 [| 


Il Please send me the RD WRITER. I am enclosing $19.95 plus [| 
| 52.00 shipping and handling. 
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tape recorder. Optional internal modem. No CP/M 
capability yet. Only one built-in double-sided 
disk with 360K storage. DOS (required) is $65 
extra. The drive is very fast compared with the 
1541. You can load 32K in 16 seconds. 


Software 

64: A simple Microsoft BASIC built in. Thousands 
of public domain programs. Thousands of third- 
party programs. А wide range of Commodore 
software. 


PCjr: A full Microsoft BASIC, with extensions for 
file handling, graphics, sound, error trapping, 
event trapping, interrupts, and more. Optional 
Cartridge BASIC required to run disk drive and 
access extended graphics modes and the sound 
chip. Compatibility with hundreds of IBM PC 
programs. "PC-compatible" says a lot to many 
people. 

As you can see, the 64 holds its own against 
Big Blue's entry home computer. You just can't 
compare them price-wise, though. Both initially 
and in the future, the 64 will save you hundreds 
of dollars—and you can still do the same things 
and enjoy some superior features. The 64 will be 
around awhile as the Volkswagen of home and 
personal computers—especially with such de- 
voted and interested users. @ 


SUPER FORTH 64: 


TOTAL CONTROL OVER YOUR COMMODORE-64™ 
USING ONLY WORDS 
MAKING PROGRAMMING FAST, FUN AND EASY! 
MORE THAN JUST A LANGUAGE... 
A complete, fully-integrated program development system. 
Home Use, Fast Games, Graphics, Data Acquisition, Business 
Real Time Process Control, Communications, Robotics, Scientific, Artificial Intelligence 


A Powerful Superset of MVPFORTH/FORTH 79 + Ext. for the beginner or professional 


© 20 to 600 x faster than Basic 

* 1/4 x the programming time 

e Easy full control of all sound, hi res. 
graphics, color, sprite, plotting line & 
circle 

* Controllable SPLIT-SCREEN Display 

* Includes interactive interpreter & compiler 

* Forth virtual memory 

e Full cursor Screen Editor 

* Provision for application program 
distribution without licensing 

* FORTH equivalent Kernal Routines 

* Conditional Macro Assembler 


© SPRITE-EDITOR 

© Access all C-64 peripherals including 4040 
drive 

* Single disk drive backup utility 


* Disk & Cassette bosed. Disk included 

* Full disk usage — 680 Sectors 

* Supports all Commodore file types and 
Forth Virtual disk 

* Access to 20K RAM underneath ROM 
areas 

* Vectored kernal words 

* TRACE facility 

* DECOMPILER facility 


* Meets all Forth 79 standards* 
* Source screens provided 


• Compatible with the book "Starting Forth” 


by Leo Brodie 

* Access to all I/O ports RS232, IEEE, 
including memory & interrupts 

* ROMABLE code generator 

© MUSIC-EDITOR 


SUPER FORTH 64° i: more 
powerful than most other computer languages! 
е SUPERFORTH64 ө 


ISP. 
roco — Se 


c 
PASCAL 
BASIC 
FORTRAN 
ASSEMBLER 


Languages 


е Full String Handling 

* ASCII error messages 

* FLOATING POINT MATH SIN/COS & SQRT 

© Conversational user defined Commands 

* Tutorial examples provided, in extensive 
manual 

* INTERRUPT routines provide easy control 
of hardware timers, alarms and devices 

* USER Support 


SUPER FORTH 64° compiled code 


becomes more compact than even assembly code! 


Size Memory 


Power of Languages Constructs 


А SUPERIOR PRODUCT 
in every way! At a low. 
price of only 


$96 


Call: 
(415) 651-3160 


PARSEC RESEARCH 


Program Functionality 


Take this ad to your local 
dealer, or 8, Dalton Book: 
sore. Phone orders also 


Drawer 1776, Fremont, CA 94538 


® PARSEC RESEARCH tutions 1974) 


Commodore 


44 & VIC-20 TM of Commodore 


Di-9$6CTOR —- 


EVERYTHING-YOU EVER WANTED IN A DISK UTILITY... AND MORE!! 


BACKUP YOUR ENTIRE DISK LIBRARY GUICKLY AND EASILY 


ж Make 3 pass backup-of protected software 


ж бору files 


939.95 


ж Direct or allogation backup. of 


Standard format 


POWERFUL DISK MANIPULATION SYSTEM GIVES YOU TOTAL CONTROL OF YOUR 1541 


Edit sectors in HEX; АЗОН; or Assembler 


Force errors to any track and sector. instantly 


drive memory 


x Display sector header information 
* Repair damaged diskettes. 
Machine language monitor allows &xamination/modification of both C-64* and disk 


Screen Prompts and Thorough Documentation Make This Powerful Utility Simple to Use 


‚... WRITE OR PHONE... 


“Commodore 64 is a 
registered trademark of 
Commodore Business Machines 


Star Route 10 


ST/<RPOINT SOFTWARE 


Gazelle, CA 96034 


(916) 435-2386 


VISA or 
MASTERCARD 


add $3 for C.O.D. 


Inside 
Random Numbers 


Dan Carmichael, Assistant Editor 


Are computer-generated random numbers 
truly random? Yes and no. This inside look at 
random numbers explores ways you can deter- 
mine the random quality. A test program is 
included. For the VIC and 64. 


Computers, if nothing else, are logical. But in 
certain programs, especially games, you'll want 
your computer to generate a random number. 
The RND command does this. 

How random are those numbers? How can a 
computer pick a number out of thin air? 

The VIC and 64 produce random numbers 
by taking a seed number, multiplying it by an- 
other number, adding yet another number, and 
scrambling the bytes. The result is not a truly ran- 
dom number, but it suffices for most applications. 

The seed (and the random number) are stored 
in floating point format. In Commodore BASIC, 
five bytes are needed for each floating point 
number, even if the number is a single digit, like 
1ог2. 

The BASIC RND command can generate ran- 
dom numbers in both the VIC-20 and the 64. In 
its simplest form the RND command generates a 
random number between zero and one (not in- 
cluding zero or one). To see how this is done, 
enter the following BASIC program: 


10 PRINT RND(1): 


А Choice Of Arguments 

Whenever you use RND, you must include a 
number in parentheses immediately after it. This 
number is called the argument. The number in the 
argument determines the seed value which is 
scrambled to create the random number. There 
are three ways of seeding the RND function— 
using a positive number, a negative number, or 
zero. 


GOTO19 
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Using a positive number as the argument is 
by far the most common method of generating 
random numbers because it is the most reliable. 
When you use RND (1), the computer looks at 
memory locations 139-143 and uses the values 
there for the random seed. When it has finished, 
it puts new values into those slots. Any positive 
number can be used. The value does not matter, 
only the fact that the number is positive. 

A negative argument will give you a pre- 
determined result—a nonrandom number. To 
test this, try substituting RND(-1) or RND (-900) 
in the program above. The same number comes 
up every time. Because the results are predictable, 
negative numbers are used not to generate random 
numbers, but to put a certain value into the seed 
bytes at 139-143. If you use RND (-N) to set up 
the seed and then use RND(1), the series of num- 
bers will always fall in the same order. This can 
be useful in debugging a program. 

RND(0) checks the value in the system time 
clock and uses it for the seed. There are some 
problems with using it regularly, especially on 
the 64, but if you use it once at the beginning of a 
program, it can be a good way to (almost) ran- 
domly seed the random seed. Another method of 
randomizing, RND(-TI), is discussed later. 

By adding a few options to the command, 
you can produce numbers of almost any size and 
range. Enter the following BASIC program. 


10 PRINT INT((RND(1)*6)+1);: GOTO19 


In this example we've produced random numbers 
between 1 and 6. This might be usefulina program 
that simulates the throwing of dice. We've also 
added something new—the INTeger command. 
Remove the three letters INT from the above ex- 
ample, and run the program again. As you can 
see, without the INTeger command you get num- 
bers with up to nine significant decimal places. 


Take Your Commodore 5 Commands 
And Put Them Where They Belong. 
On Your Keyboard. 


Now you can save time and avoid frustration. PC-DocuMate keyboard templates help you 
quickly recall needed commands, options, and formats. What you need is where you want it: at 
your fingertips. Each PC-DocuMate template is professionally designed by a software expert 
and is a comprehensive reference aid. Commands are logically and functionally organized to 
help you get the most from your software. And, each template is fully guaranteed to satisfy or 
your money back. 

PC-DocuMate keyboard templates are silk-screen printed on durable, non-glare plastic to 
exacting specifications for ease of use. Order yours today and join thousands of satisfied users 
who are saving time and effort. 


PC-DocuMates now available for: VIC 20 
COMMODORE 64 * Model CM204: BASIC, music, & more 


ө Model CMó44: BASIC, music, * Model СМ004: Do-it-Yourself 


sprite reference z : 

If your favorite software package is not 

(As shown) shown here, then order our "Do-it-Your- 

е Model CR400: Calc Result self" template (which includes a special 
* Model ӨР400: Quick Brown Fox pen and eraser) and develop your own 


e Model СМ004: Do-it-Yourself сое онер е 


ң BASIC commands and Screen and color 
Basic eunctions cre statements are fully Pico ore MEMORY MAP 
isted and define documented programming provided 


CONTROL KEYS Commodore color SPRITE programming 
are documented COLOR code reference key reference reference 


Prices: ONLY $12.95 each (including shipping) 


HOW TO ORDER: Please send personal check, money order or MC/VISA credit card information. 
Shipping is included, but foreign orders must add $5.00 per unit (except Canada). US funds only. 
Sorry, NO СОО”. NC residents add 4% sales tax. Personal checks must clear our bank before 
shipment. For more information call 919-787-7703. Dealer inquiries invited. 


Vey CALL TOLL FREE: 4-800-SMA-RUSH FOR FASTER SERVICE ON CREDIT CARD ORDERS! T 
4-800-762-7874 or in NC call 949-787-7703 


Systems Management Associates OUR GUARANTEE: Use your template for 
3700 Computer Dr., Dept. T-1 10 days. If you are not completely satis- 
P.O. Box 20025 fied return it to us (undamaged) fora full 
Raleigh, North Carolina 27619 refund. 


Ny BPO" 


SMA is a division of U.S. Software, Inc. Commodore 64 and VIC 20 are trademarks of Commodore Business Machines, Inc. Calc Result is a trademark of Handic Software ab, PC-DocuMate is a 
trdemark of SMA, Quick Brown Fox is a trademark of Quicktex. Inc. 


The INTeger command converts decimal 
numbers to whole numbers by dropping anything 
after the decimal point. Type this line and press 
RETURN: 


PRINT INT(1.1) 


The result is 1. This is the INTeger value of 1.1. 
One important fact to note about the INT com- 
mand is that it does not round off. Type and 
enter: 


PRINT INT(1.9) 


As you can see, the INT value of 1.9 is also 1, not 
2 as you might expect. 

Always use INT with RND when you want 
whole numbers. This will be the case in most ap- 
plications. After all, if you were writing a dice 
game, you wouldn’t want to throw a 6.38340299. 

The RND command is certainly not limited to 
a range of six numbers as in the above example. 
As a matter of fact, the range of possibilities is 
almost limitless. The most common RND format 
is this: 

INT(RND(1)* range + base) 


where range is how many numbers you wish to 
generate, and base is the lowest number of that 
range. For example, if you wanted to generate a 
range of numbers between 1 and 52 (for use ina 
card game), the command syntax would look like 
this: 

INT(RND(1)*52 +1) 


INT(RND(1)*11 + 10) would generate random 
numbers between 10 and 20. 


Randomizing Random Seeds 
As mentioned above, the random seed is the origin 
of numbers produced when the BASIC RND com- 
mand is used with a positive argument. The ran- 
dom numbers you use in your programs are ex- 
tracted from the five seed bytes. 

А common problem when working with ran- 
dom numbers is repeating patterns. Turn your 
computer off and then on, and enter this line: 


FORA -139Т0143:РКІМТА,РЕЕК(А):МЕХТ 


This shows you the contents of the five random 
seeds. If you continue turning the computer off/on 
and entering this line a number of times, you'll 
notice something interesting. The random seed 
bytes always contain the same values after power 
up. As a matter of fact, the values you're probably 
getting are 128, 79, 199, 82, and 88. 

The fact that the random seed is always in- 
itialized with the same values creates the possi- 
bility of repeated random number patterns. For 
example, turning on your computer, loading the 
same game, and playing it in the same sequence 
is likely to produce the same results. This isn't 
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much fun in a game based on the luck of the draw. 

The answer is to randomize your program. 
This can be done with one BASIC line. If you want 
your computer to produce truly random numbers 
without repeating patterns each time you play a 
game, statt with a different random seed each 
time it is run. This is done by initializing the ran- 
dom seed with the use of the system (computer) 
clock. Turn your computer off and on, and enter 
the following line: 

X=RND(-TI):FORA = 139TO143:PRINTA;PEEK(A): 

NEXT 

The command X = RND(-TI) is the key to 
producing a random seed that is varied each time 
the program is run. In effect, this BASIC statement 
gets values from the jiffy clock (TI), and POKEs 
them into the random seed. Because the clock 
changes every sixtieth of a second, the odds 
against repeating a random seed are great. Adding 
this line to the beginning of your BASIC program 
(before the RND statement is used) will create a 
different seed each time the program is run. 


Testing Random Numbers 
"Random Number Test" checks the RND com- 
mand or the random seed, charts the results, and 
supplies a capsule analysis. It will show you what 
results to expect when using the RND command 
in a BASIC program or the random seed to gener- 
ate random numbers within a machine language 
program. 

For BASIC programmers, the program will 
test any range of numbers between 0 and 255. 
And machine language programmers have the 
option of testing any one of the five random seed 
bytes. 

Carefully enter the Random Number Test 
program. The DATA statements in lines 885 
through 941 are for a machine language program, 
so they must be entered accurately. After entering 
and SAVEing the program to tape or disk, type 
RUN. 

The first prompt asks if you want the seed 
randomized (seeded with the clock). Press R to 
randomize; otherwise, press RETURN. The next 
prompt asks what type of computer you have. If 
you have a VIC-20, enter V. Press RETURN for 
the 64. 

The third prompt asks you to press either the 
f1 key to test the random seeds, or the f3 key to 
test the BASIC RND command. 

If you choose f1 (test the random seeds), the 
next prompt asks which random seed byte you 
wish to test. The five keys (1—5) correspond to the 
five random seed bytes (139-143). 

If you choose ІЗ (testing the BASIC RND com- 
mand), the next prompt requests two numbers 
between 0 and 255. This is the range of random 


VIC-20/C-64 


MODEM 


MFJ-1237 


53 9° 


Tiny 2%х2%х1 in. 


300 baud 
Direct Connect 


Originate/Answer * Full 


Duplex * Carrier detect LED 
World's lowest cost modem. High performance 
Texas Instrument single chip modem design. 
Works for both VIC-20 and Commodore 64. 
Plugs into user's port. Use with single or multi- 
line phones. Plugs into telephone base. 
300 baud. Direct connect. Originate/answer. 
Full duplex. Carrier detect LED. Crystal controlled. 
Powered by computer. Aluminum enclosure. 
Includes Basic listing of Terminal Program. 
Terminal Program available on tape, $4.95 and 
cartridge, $19.95. Specify VIC-20 or C-64. 


Save VIC-20 
Cartridge P ograms 


on tape . 
MFJ-1256 


53% 

Adapter board 
lets you save VIC-20 car 
ridge programs on cassette tape and run them 
using 8K RAM board. Provides cartridge backup, 
eliminates plugging and unplugging cartridges 
and turning VIC-20 on and off. 

Includes adapter board that plugs into expan- 
Sion port and software to save and run cartridge 
programs on cassette tape. Requires 8K RAM 
board (not included). 


RS-232 Interface for 
VIC-20/C-64 


MFJ-1238 
520% © 


Provides RS-232 
voltage conversion for 
VIC-20/C-64 serial port. Use “ay » 
RS-232 printers, modems, speech synthesizers 
and other RS-232 peripherals. Switch reverses 
transmit/receive lines for DTE or DCE operation. 
Use as null modem. Standard 25 pin RS-232 con- 
nector. Plugs into user's port. Powered by com- 
puter. 274х274 inches. н 
VIC-20 Capacitance Meter 


Measure 100 pf to 100 Mfd. 
Includes calibration capacitor, MFJ-1258 
$ 29 95 


software on tape and hardware 
interface. 
Order from MFJ and try it. If not delighted, 
return within 30 days for refund (less shipping). 
One year unconditional guarantee. 
Order yours today. Call toll free 800-647-1800. 


Charge VISA, MC. Or mail check, money order. 
Add $4.00 each for shipping and handling. 


CALL TOLL FREE . 800-647-1800 
Call 601-323-5869 in MS, outside continental USA. 


ME ENTERPRISES 


INCORPORATED 
921 Louisville Road, Starkville, MS 39759 


Ite o® 


Complacency or curiosity? 


Move your children away from the 
passive nature of TV and turn them 
on to the excitement and fun of in- 
teractive learnin arning with Dow Jones 
News/Retrieval® 

You probably thought Dow Jones 
News/Retrieval only provided busi- 
ness and financial information. 
Wrong. We've got something of 
value for the whole family. 

With our 20-volume, 30,000 ar- 
ticle Academic American Encyclo- 
pedia, Dow Jones News/Retrieval 
will pique your children's curiosity 
about the world and help them de- 
velop new skills. Тһе information 
they need for school is easy to ac- 
cess, always up-to-date, always 
ready. And kids love to use it! 

'There are timely news reports 


DOW JONES 


from Washington, our nation and 
the world. You also get current 
Schedules and rates from the Official 
Airline Guide? Comp-U-Store, а 
convenient shop-at-home service; 
Cineman Movie Reviews; sports 
highlights; weather reports and MCI 

Mail—the new electronic mail ser- 
vice that lets you send letters to 
anyone, anywhere, even if he or she 
doesn't own a terminal. 

Overall, you'll find a wide variety 
of high-quality data bases accessible 
quickly and easily with most per- 
sonal computers. 

'To get your children involved, 
excited and turned on to the fun of 
learning, turn them on to Dow Jones 
News/Retrieval. 


(em 


Copyright € 1984 Dow Jones & Company, Inc. All Rights Reserved. 
Dow Jones News/Retrieval? is a registered trademark of Dow Jones & Company, Inc. 


FOR FULL DETAILS, CALL 800-345-8500, EXT. 


Alaska, Hawaii and foreign, call 1-215-789-7008, Ext. 5 


numbers you want to test. Enter the two numbers 
separated by a comma, then press RETURN. For 
example, if you want to test the numbers between 
1 and 6, enter 1,6 then press RETURN. The test 
range must include two or more numbers. Enter- 
ing 1,1 or 123,123 would test only one number 
and is not a legal entry. 

The program generates random numbers in 
the range you specify while in BASIC, then 
branches to the machine language program that 
does the tallying. Testing the RND command in 
this way demonstrates the randomness you can 
expect when you use RND in your BASIC pro- 
grams. 

After responding to the last prompt, the pro- 
gram begins running. The first stage of the pro- 
gram can be ended by pressing the f1 key. The 
program will also end if any one number is gener- 
ated, or occurs more than 65,280 times. 

After the first stage of the test program has 
ended, the analysis phase begins. А chart of num- 
bers between 0 and 255 is displayed. The first 
column shows the numbers generated. The sec- 
ond column displays how many times this number 
occurred or was randomly generated. To continue 
stepping through the display pages one at a time, 
press RETURN. 

Finally, you are asked if you wish for an 
analysis. Press Y for a short recap of the programs 
run. Press N to end the program with no analysis. 

Here's a description of the totals displayed 
on the analysis page: 


Total Numbers Hit — how many numbers received 
at least one hit. For example, this total would be 5 
if you were testing the RND command with a 
range of 1—5, and all 5 numbers were hit. 


Total Count — the total number of hits, all numbers 
included. In the above example, if all numbers 1 
through 5 were hit 5 times each, this total would 
be 25. This also reflects the total number of passes 
the program made. 


Average Count — the average hits per number. For 
example, if we were testing the range of 100-101 
and 100 was hit 2 times, and 101 was hit 4, the 
average would be 3. Use this total to determine the 
randomness of the test run. For example, if you 
tested the whole range of numbers (0-255), and 
the average count read 10,123, but the number 2 
was hit only 3 times, you'd know of this disparity. 
Lowest Count — indicates the lowest number of 
hits any one number received. In the above ex- 
ample (0-255) the lowest count would be 3 because 
the number 2 was hit only 3 times. 

Highest Count — indicates the highest number of 
hits received by any one number. 

Total Zeroes — indicates how many random num- 
bers received no hits. 
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Although the recap analysis is brief, it is help- 
ful in illustrating how well the random function is 
behaving. 


RND And Machine Language 
Programming 

What about generating random numbers for 
machine language applications? Of course, you 
could always RTS (branch back to BASIC), generate 
a random number with the RND command, and 
return to machine language. But this would reduce 
the speed of the machine language program. 

Тһе answer can be found at address $E097 
(decimal 57495) in the 64, and $E094 (decimal 57492) 
in the VIC-20. These addresses are the start of the 
routine in the Kernal that places random values 
into the random seed bytes. Type and enter this 
BASIC line to demonstrate how it works: 


SYSxxxxx:FORA = 139TO143:PRINTA, PEEK(A):NEXT 


Replace ххххх with 57495 for the 64, and 57492 for 
the VIC. As you can see, each time this BASIC state- 
ment is run, the values in the random seed change. 

Using these Kernal routines in your machine 
language program is fairly straightforward. When 
you need a random number, JSR (Jump to Sub- 
Routine) to the Kernal routine. You can then re- 
trieve one or more of the values in the random 
seed bytes, and away you go. Of course, processing 
the values is up to you. 

However, there is one important point to 
remember when generating random numbers in 
machine language. As mentioned earlier, seeding 
the RND command with a negative, positive, or 
zero value will produce different results. When 
you use the Kernal RND routine, one of the first 
things it checks for is a negative, positive, or zero 
value in the Floating Point Accumulator. Make 
sure the FPA contains values that will produce 
the results you desire. 

There is another unique way of generating 
random numbers in machine language, using the 
I/O block in your computer. The I/O block is an 
area of memory (starting around 56320 in the 64, 
and 37000 in the VIC) that is constantly changing, 
doing such things as updating the screen, and 
manipulating data direction registers and timers. 
First, find two bytes that have constantly changing 
values. Load the accumulator with the value in 
one byte, and either the X or Y register with the 
other. You can then rotate (ROR or ROL) the ac- 
cumulator with the X or Y register. 


Does RND Generate Random 
Numbers? 


Our results from Random Number Test are inter- 
esting. First is the way the random seed bytes 
behaved. 
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Software Discounters 
of 
America 


S.D. of A. 


FOR ORDERS ONLY 1-800-225-SOFT 
P.O. BOX 278-DEPT. CG е WILDWOOD, PA 15091 


IN PA. (412) 361-5291 


Commodore 64 Software and 


Peripherals 


Price Good Through August 31, 1984 


ACCESS 
Beach Head (T or D) 

Master Composer (T or D) . $26 
Neutral Zone (T or D) .. 
Spritemaster (T or D) 
ARTWORX 
Bridge 4.0 (T or О).... 
Gwendolyn (T or D). 
Hodgepodge (T or D) . 
Monkeymath (T or D) 
Strip Poker (Т or D) 
BATTERIES INCLUDED 
Paperclip (D) . A 
Paperclip w/Spelling (D) 
BRODERBUND 

Bank St. Writer... 
Choplifter (D) 
Loderunner(D) .... 

Mask Of The Sun (D) 
Operation Whirlwind (D) . . 
Spare Change (D) 

CBS 


Big Bird's 
Special Delivery (D) .... 
Ernie's Magic Shapes (D) . 
Math Series (D) ........ 
Micro Speed Reader (0)... 
Mastering The SAT(D).... 
Webster: The Word 


( 
CONTINENTAL 
F.C.M. (D) 
Home Accountant ....... 
CREATIVE SOFTWARE 
Crisis Mountain (R) 
| Amhe C64 (0)... 

Home Inventory (О 
DATA SOFT 
Bruce Lee(T/D).... 
Dallas Quest (D) . 
Letter Wizard (D). 
Рооуап(Т/р).... 
Sands Of Egypt (D). . . 
DESIGNWARE 
AII Titles (D) 
EPYX 
Curse Of Ra(T or D) 
Dragon Riders Of Pern (D) . 
Gateway To Apshai (R) ... 
Jumpman Or Jumpman Jr. 
Oil Barons (D) . . Е 
Pitstop (R) 
Summer Games (D) .. 
Temple Of Apshai (T or 
Upper Reaches Of 

Apshai (T or D) 
World's Greatest 

Baseball Games (D) .... 
FIRST STAR 
Astro Chase (T or D)... 
Bristles (TorD).... 
Flip Flop (Т or D) 
HES 
Cell Defense (D) . 
Factory (D) .... 
Gridrunner (R) 
Hes Mon(R) ... 


Hes Modem .. 

Multiplan (D) . . 

64 Ғогіһ(В)......... 

Turtle Graphics II (R) 

INFOCOM 

Enchanter (D) ... 

Infidel (D). . . 

Planetfall (б). 

Sorcerer (D) 

KOALA 

Koala Touch Tablet 
wlPainter (D) . . 

Coloring Series | (| 

Dancing Bear (D) 

Koalagrams Spelling I (D) . 

Logo Design Master (D)... 

Paint-A-Rhyme (D) .. б 

Spider Eater (D) 

MICROLAB 

Death In Caribbean (D) 

Dino Eggs (D) 

English SAT I (D). . 

Math SAT I (D) 

PARKER BROS. 

Frogger(R) ... 

Popeye (В).. 


PROFESSIONAL SOFTWA 


Word Pro 3+/ 
Spell Right +. 
SCARBOROUGH 
Mastertype (D or R) 
Songwriter (D) 
SEGA 
Buck Rogers (В)... 
Congo Bongo (R) 
Star Trek (R) 


SIERRA ON LINE 

BC Quest For Tires (0)... . 
Championship Boxing (D) . 
Homeword (D) 

Oil's Well (D) . . 

Time Zone (D) . 

Ulitmall (D)... 

Ulysses (D) К 
Wizard & Princess(D) .... 


SPINNAKER 

Adventure Creator (R) .... 
Aegean Voyage (R) 

Alf In The Color Caves (В). 
Alphabet Zoo (В). 

Bubble Burst (R) . 

Delta Drawing (R) 
Facemaker(R) .. 
Fraction Fever (R). . 
Grandma's House (D). 
Hey Diddle Diddle (D). 
Jukebox (А). . 
Kidwriter(D) .. 

Kids On Keys (В). 
Kindercomp (R) 

SSI 


Battle For Normandy 

(T or D) 
Combat Leader (D) . 
Computer Baseball(D) ... 


Eagles (D) 

Germany 1985 (D) . 

Professional Tour Golf (0). 

RDF 1985 (D) 

RINGSIDE SEAT (D) . . 

SUBLOGIC 

Flight Simulator ll (D) 

SYNAPSE 

Blue Max (T or D) 

Ft. Apocalypse (Т or D) . 

Necromancer (T or D)... 

Pharoah's Curse (T or D) .. 

Protector II (ForD)...... 

Quasimodo (T or D) . Ж 

Shamus Case 11 (T or D) ... 

Zaxxon (T or D) : 

Zepellin(T or D) .. 

TIMEWORKS 

Accounts Receivable (D) . . 

Accounts Payable(D) .... 

Cash Flow 
Management (D) 

Data Manager (T or D) .... 

Data Manager 2(TorD)... 

Dungeon Of Algebra 
Dragons (T or D) 

Electronic Checkbook 


g 
Money Manager (T or D)... 
Programming Kit 
1, 2o0r3(Tor D) 
Robbers Of The Lost Tomb 


Spellbound (T or D) 
Starbattle (T or D) . 
Word Writer (D) 
TRONIX 
Chatterbee (D) 
Motocross (D) . 
Pokersam (D) . 
S.A.M.(D) .. 
Slalom (0) . . 
Suicide Strike ( 
Waterline (D) 


ACCESSORIES 
Alien Group Voice Box ... 
Alphacom 80 Column Printer 
wlInterface . . с 
BASFSS,DD. 
Cardco Accessor 
Compuserve Starter Kit . 
Concorde Disk Drive. . 
Disk Case (Holds 10) 
Disk Case (Holds 50) . . 
Dust Covers — 
Any Commodore Cover . . 
Koala Pad 
Surge Protector 
w/6 outlets ... 
Wico Boss.... 
Wico Bat Handle . 
Wico 3-Way... 
Wico Red Ball . 
Wico Trackball . . 


Ordering and Terms: Orders with cashier check or money order shipped immediately. Personal/company 
checks, allow 3 weeks clearance. No C.O.D.'s. VISA/MASTERCARD accepted with no additional charge for 
orders shipped to continental U.S.A. Shipping: Continental U.S.A. — Orders under 5100 add $3; free shipping, 
on orders over $100. PA residents add 6% sales tax. AK, HI, FPO-APO — add $5 on all orders. 
INTERNATIONAL — add $10 or 15% of order whichever is greatest. Defective merchandise will be replaced 
with same merchandise — NO CREDITS! Return must have authorization number (412) 361-5291. Prices. 


subject to change without notice. 


NEW! 
Universal Input/Output 
Board for VIC-20/64 


16 channel 8-bit A/D converter with 100 


microsecond sampling time. 
1 D/A output. 


16 high voltage/high current discrete out- 


puts. 
1 EROM socket. 


Use multiple boards for additional channels 


up to 6 boards. 
VIC-20 uses MW-311V 


$205.00 


CBM-64 uses MW-311C .... $225.00 


MW-302: VIC-20/64 


Parallel Printer Interface. 


Works with all centronics type parallel 
matrix & letter printers and plotters— 
Epson, C.ltoh, Okidata, Nec, Gemini 


10; ТР-І 


Smith Corona, and most 


others. Hardware driven; works off the 
serial port. Quality construction: Steel 
DIN connectors & shielded cables. Has 
these switch selectable options: Device 
4, 5, 6 or 7; ASCII ог PET ASCII; 7-bit 
or 8-bit output; upper & lower case or 
upper only. Recommended by PRO- 
FESSIONAL SOFTWARE for WordPro 
3 Plus for the 64, and by City Software 


for PaperClip. 


Dealer 
inquiries invited. 


шш) жз) 


5119.95 


Micro World Electronix, Inc. 
3333 S. Wadsworth Blvd. #C105, 


Lakewood, CO 80227 


(303) 987-9532 or 987-2671 


Computer 
on 


VIDEO INSTRUCTION TAPES! 
STEP BY STEP INSTRUCTIONS 


PICTURES ARE WORTH 
THOUSANDS OF WORDS AND SAVE 
HOURS OF FRUSTRATION 


USE YOUR VCR SIDE BY SIDE WITH YOUR COM- 
PUTER TO LEARN HOW TO PROGRAM, AND HOW 
TO USE PROGRAMS. YOUR VCR ALONG WITH 
YOUR COMPUTER SERVE AS YOUR PERSONAL 
TUTOR. PAUSE YOUR VCR TO REVIEW AND 
LEARN AT YOUR OWN PACE. 


TAPES NOW AVAILABLE 


CAT# TOPIC APPROX RUN TIME 

BP-3 LEARNING C-64 BASIC 2 HR $49.95 
BP-4 LEARNING VIC-20 BASIC 2 HR $49.95 
DIO-1 COMMODORE 64 DISK 1/0 1 HR 45 MIN $49.95 
010-2 VIC 20 DISK 1/0 1 HR 45 MIN $49.95 
EW-9  MULTIPLAN C-64 1 HR 50 MIN $39.95 
EW-3 CALC-RESULT ADVANCED 1 HR 30 MIN $39.95 
EW-4 CALC RESULT EAZY 1 HR 15 MIN $29.95 
EW-5  PRACTICALC C-64 1 HR 15 MIN $29.95 
EW-6  PRACTICALC VIC-20 1 HR 15 MIN $29.95 
WP-5  SCRIPT-64 1 HR 30 MIN $39.95 
UT-2 THE LAST ONE 1 HR 30 MIN $39.95 


Electronic worksheets: EW-3-6. Detailed step by step in- 
sturction in the use of electronic spread/sheet software. 
Work along and set up a complete example worksheet. 


Basic programming: BP-3 & 4. Teaches BASIC Language 
commands and programming techniques. Builds your know- 
ledge from beginning in advanced levels. 


Data File Programming: DIO-1 & 2 teaches BASIC Language 


data file programming using random, sequential, and relative 
access data files. 


VHS or BETA FORMAT 


Add $3.00 per order for shipping and handling. 
Add $3.00 for C.O.D. 


HEUS 
To Order | VISA | 
Phone or Write E 


LYNN COMPUTER SERVICE 


6831 West 157th Street Tinley Park, Illinois 60477 


(312) 429-1915 


CALC-RESULT IS A TRADEMARK OF HANDIC SOFTWARE PRACTICALIS 
A TRADEMARK OF COMPUTER SOFTWARE ASSOCIATES. MULTIPLAN 
IS A TRADEMARK OF MICROSOFT. 
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The most interesting of the five bytes (139— 
143) was 139. After 129,873 passes, the results 
were very lopsided. Although the whole range of 
possibilities (0-255) was tested, only 15 numbers 
received hits, the numbers between 114 and 128. 
And each number received approximately twice 
as many hits as the previous number. The number 
127 received 32,287 hits and 128 was about double 
that amount with 65280. This is because of the 
way base ten numbers are translated into floating 
point format. This byte would not be very usable 
for generating random numbers because of the 
poor dispersion pattern. 

Also of interest were the test results of random 
seed 143. The pattern here, although it did display 
a few glitches, was usable. The majority of num- 
bers (236) received a relatively random number of 
hits. A few numbers received zero hits. 

Finally, the biggest surprise was the testing 
of the BASIC RND command. The range tested 
was 1 to 6, and the surprise was the results. The 
activity was evenly distributed over the entire 
range with the number 3 receiving 38,593 hits 
(the lowest), and the highest number 4 with 39,418 
hits. The average was 39,061. These test results 
seem to indicate that the BASIC RND command 
is effectively random. АП tests were run after the 
random seed was initialized with the clock. 

See program listing on page 174. @ 


The SEMEL ше UU 


те TYPE 


292 + x 
When it's on, it's on. 1. No software to mess around with. This 
high quality, low-profile CP Numeric Keypad is the one for your 
Commodore 64 and VIC-20. It is guaranteed to be 100% com- 
patible with all the software you have, now and forever, in any 

format. The Keypad easily connects in parallel with the existing 

keyboard connector. Now you can zip through your numeric 

work sheet, input your numbers and figures comfortably, 

quickly, and more easily than ever before at only $69.95. 


Com puter Place зз. 
23914 Crenshaw Blvd. Torrance, CA 90505 
Dealer inquiries welcome 


Commodore 64 and VIC-20 are trademarks of Commodore Business Machines, Inc. 


UF Terminal ready 
Der SMS They’ re right! To start with the рсы 


You're right. This ЯР Текіла] is the only terminal for the C 6 you’ve got to have the VIP Terminal! 
эмге that foe st didit wrk 


т Built-in 40, 64, 80 and 106 columns 

ш Word wrap for a formatted display 

в Talk to any computer 

@ Use any modem and printer 

в Written in fast machine code 

m 15 entry phone directory 

в 20 programmable keys 

m Automatically dial, redial, upload, 
download and log-on 


d aN jp ta @ Professional 96 character ASCII display 
hay ( 1 3 ш 128 character ASCII keyboard 
ME Pi vs P seach А в Simultaneous on line printing and 
М will be out soon. E 5 de the dole sel i saving of files to tape and disk 

І эе "on the го > @ Use and save files as big as your disk! 


в E Mail % E-COM Compatible 
Get yours NOW! 


The VIP Terminal is only the first in a Hi-res technology and sprites allow The 40-characters-per-line display of 
whole series of elegant software for VIP Library programs to bring you task the Commodore 64 is inadequate for 
your Commodore 64 called the VIP Icons, made famous by the Apple Lisa™ serious computing. An 80-column 
Library. This complete collection of and the Xerox Star™. With these display is the industry standard. VIP 
easy-to-use, serious, high quality, advanced sprite representations of the Library programs bring this standard to 
totally interactive productivity software · task options open to the user, even the your Commodore 64 with state-of-the 
includes VIP Writer, VIP Speller, VIP total novice can, at a glance, perform 'art graphics, without need for costly 
Calc, VIP Database, VIP Disk-ZAP, VIP every task with ease. Just look at the hardware modifications. With VIP. 
Accountant and VIP Tax. All are equal icon and press a key! No programs are Library programs you can freely choose 
in quality to much more expensive easier.or more fun to learn and use! from four displays: the standard 40 
software for the IBM PC, and all are column display, plus a 64, 80 and even 
very affordable! 4 а 106 column Бу 25 line display. With 

All VIP Library programs are these programs you can have more text 


compatible with each other and other on er сеп С 2n BM МЕ S 
computers for easy file transfer. Each Ww | рр еге the eu SEO: E Id 
uses ASCII, the universal language of elcomerto: te Professional wot 
computer communications so that files 
can be sent to and received from other 
computers without modification! The 
Library also gives you the benefit of a 
consistent icon and command 
structure. Once you have learned one 
program, the others will come easily. 


Softlaw Corporation has years of soft- 
ware experience in micros. We currently 
offer the full-line VIP Library for other 
micros in the U.S. and in Europe. Now we 
are bringing this experience to the Com- 
modore 64 so you get ultra- high quality 


: amm For Orders ONLY ез software at very affordable prices. 


=m . Call Toll Free — 


VIP Library programs are not limited 
by the size Sur computer's Order Status and Software Support 
memory. All programs use virtual call (612) 881-2777 
memory techniques to allow creation Available at Dealers everywhere. ЇЇ your 


and use of files larger than your , Dealer is out of stock ORDER DIRECT! 9072 Lyndale Ave. So., Mpls., MN 55420 
computer's available work area. You're 


imi i MAIL ORDERS: $3.00 U.S. Shipping ($5.00 
only limited by the space on your disk! CANADA; $10.00 OVERSEAS. Personal AUTHOR'S SUBMISSIONS 


©1983 by Softlaw Corporation checks allow 3 weeks. ARE ENCOURAGED. 


4 Color 
80 COLUMN Letter Quality 


PRINTER / PLOTTER 
. Super Special 


/2 PRICE 


“ LOWESTPRICE IN U.S.A. 
oe Commodore-64 8. МІС-20 


* List your programs * High resolution graphics for bar charts and geometric figures (like 
spirograph) е Plugs directly into VIC 20 and Commodore 64 — Interface included • Lowest 
cost letter quality printer in the country. 


x PROJECTED SALES x 


* DATAQUEST FORECAST 


Eo e du PER ACTUAL PRINT SAMPLES 


UPPER CASE - ABCDEFGHIJKLMNOPQRSTUUWXYZ 


MILLIONS OF UNITS 


LOWER CASE - abcdefghiJklmnoparstuvuxyz 


At last you can list your programs (even control characters) and make beautiful high resolu- 
tion graphics at an affordable price. This 80 column letter quality printer/plotter is great for 
making complex bar charts for business plus fancy greeting cards and geometric designs. 
Great for homework too. Everyone must have a 4 color printer plotter for their VIC-20 or 
Commodore-64. List $199.00. Sale $99.00. 


e LOWEST PRICES е 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
е BEST SERVICE IN U.S.A. е ONE DAY EXPRESS MAIL е OVER 500 PROGRAMS • FREE CATALOGS 


1 Ada $10.00 for shipping, handling and insurance. Illinois residents V 
1 please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII | Ез Е с | 
І orders. WE DO NOT EXPORT TO OTHER COUNTRIES. I 


|| Enclose Cashiers Check, Money Order or Personal Check. Allow 14 1 Е № ТЕ R P R 1 2 Е S (WE LOVE OUR CUSTOMERS) 


| days for delivery, 2 to 7 days for phone orders, 1 day express mail! [| 
|| Canada orders must be in U.S. dollars. Visa - MasterCard - C.O.D. 1 ВОХ 550, BARRINGTON, ILLINOIS 60010 
8 те «е «ке «ее «ке «ке «е — —— ao ee Phone 312/382-5244 to order 


80 COLUMN PRINTER SALE—$149.00* 
COM-STAR T/F 


Tractor 


* Fast80-120-160 Characters Per Second 


* Word Processing 


Friction 
Printer 


$199" 


e715 Day Free Trial -180 Day Immediate Replacement Warranty 


* Lowest Priced, Best Quality, Tractor-Friction Printers in the U.S.A. 


* 40, 46, 66, 80, 96, 132 Characters Per Line Spacing 
* Print Labels, Letters, Graphs and Tables 


* List Your Programs 


* Print Out Data from Modem Services e: “The Most Important Accessory for Your Computer’ 


*STX-80 COLUMN 
PRINTER— $149.00 


Prints full 80 columns. Super silent 
operation, 60 CPS, prints Hi-resolution 
graphics and block graphics, expanded 
character set, exceptionally clear 
characters, fantastic print quality, uses 
inexpensive thermal paper! Best thermal 
printer in the U.S.A.! (Centronics Parallel 
Interface). 

**DELUXE COMSTAR T/F 

80 CPS PRINTER— $199.00 
The COMSTAR T/F (Tractor Friction) 
PRINTER is exceptionally versatile. It 
prints 8%” x 11" standard size single 
sheet stationary or continuous feed com- 
puter paper. Bi-directional, impact dot 
matrix, 80 CPS, 224 characters. (Cen- 
tronics Parallel Interface). 


Premium Quality—120 CPS 
COMSTAR T/F SUPER-10X 
PRINTER— $289.00 
COMSTAR T/F (Tractor Friction) SUPER- 
10X PRINTER gives you all the features 
of the COMSTAR T/F PRINTER plus a 
10" carriage, 120 CPS, 9 x 9 dot matrix 
with double strike capability for 18 x 18 
dot matrix (near letter quality, high 
resolution bit image (120 x 144 dot 
matrix, underlining, back spacing, left 
and right margin settings, true lower 
decenders with super and subscripts, 
prints standard, italic, block graphics 


І Add $17.50 for shipping, handling and insurance. WE DO МОТ EXPORT П 


TO OTHER COUNTRIES EXCEPT CANADA. 


1 Enclose Cashiers Check, Money Order or Personal Check. Allow 14 days І 


апа special characters, plus 2K of user 
definable characters! The COMSTAR T/F 
SUPER-10X PRINTER was Rated No. 1 by 
"Popular Science Magazine." It gives you 
print quality and features found on 
printers costing twice as much!! (Cen- 
tronics Parallel Interface) (Better than Ep- 
son FX 80). 


Premium Quality—120 CPS 
COMSTAR T/F SUPER-15%” 
PRINTER— $379.00 
COMSTAR T/F SUPER 15%” PRINTER 
has all the features of the COMSTAR Т/Е 
SUPER-10X PRINTER plus a 15%” car- 
riage and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson FX 

100). 


Superior Quality 
SUPER HIGH SPEED—160 CPS 

COMSTAR T/F 10” 

PRINTER—$489.00 
SUPER HIGH SPEED COMSTAR ТЕ 
(Tractor Friction) PRINTER has all the 
features of the COMSTAR SUPER-10X 
PRINTER plus SUPER HIGH SPEED 
PRINTING—160 CPS, 100% duty cycle, 
8K buffer, diverse character fonts, 
special symbols and true decenders, ver- 
tical and horizontal tabs. RED HOT 
BUSINESS PRINTER at an unbelievable 
low price!! (Serial or Centronics Parallel 
Interface) 


for delivery, 2 to 7 days for phone orders, 1 day express mail! Canada 


1 orders must be їп U.S. dollars. VISA — MASTER CARD ACCEPTED. We 


ship C.O.D. 


i На ИОТСИЯНАН б CL AE үйі i 
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SUPER-10" 


Superior Quality 
SUPER HIGH SPEED—160 CPS 
COMSTAR TIF 15%” 
PRINTER—$579.00 
SUPER HIGH SPEED COMSTAR Т/Ғ 
15%” PRINTER has all the features of the 
SUPER HIGH SPEED COMSTAR T/F 10" 
PRINTER plus a 15%” carriage and more 
powerful electronics to handle larger 
ledger business forms! Exclusive bottom 
paper feed!! 


PARALLEL INTERFACES 
For VIC-20 and COM-64— $49.00 
For All Apple Computers— $79.00 
NOTE: Other printer interfaces 
available at computer stores! 


are 


Double 
Immediate Replacement 
Warranty 
We have doubled the normal 90 day war- 
ranty to 180 days. Therefore if your 
printer fails within “180 days" from the 
date of purchase you simply send your 
printer to us via United Parcel Service, 
prepaid. We will IMMEDIATELY send you 
a replacement printer at no charge, 
prepaid. This warranty, once again, 
proves that WE LOVE OUR 
CUSTOMERS! 


PROTECTO 


E N TE R PRIZ E S (WE LOVE OUR CUSTOMERS) 


BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 


ABCDEFGHIJKLMNOPGRSETUVWXYZ 2 22:544 56 7 Ө оО 


ЄЈ I'stimefor your 
compuler to grow up. 


VIC-20 EXPANDER SALE! 


LIST SALE 
8K RAM MEMORY EXPANDER $ 69.95 $39.00 
(Free $16.95 Game) 
16K RAM MEMORY EXPANDER *CARDCO" $ 99.00 $49.00 
(Free $29.95 Adventure Game) 
24K RAM MEMORY EXPANDER $159.00 $59.00 
(Free $29.95 Adventure Game) 

* 32K RAM MEMORY EXPANDER $199.00 $75.00 
(Expands to total memory to 57K (57,000 bytes) 
e 3 SLOT “CARDCO” SWITCHABLE EXPANDER BOARD $ 39.95 $29.00 
e 6 SLOT “CARDCO” SWITCHABLE *CARDCO" 
RIBBON CABLE EXPANDER BOARD (Lifetime warranty) $ 99.00 $49.00 
e 40-80 COLUMN BOARD $ 99.00 $59.00 
e “CARDCO” PARALLEL PRINTER INTERFACE $ 99.00 $69.00 


VIC-20 
WORD PROCESSOR SALE 


1. “Write Now" Word Processor Cartridge! (Better than Quick Brown Fox) No disk drive or 
cassette player needed! Just plug in the "Write Now" cartridge. Easy to use and learn, has all the 
professional features: margin settings, editing word wrap, scrolling, search and replace, center- 
ing, page numbering, user defined characters, ascii code set that allows use of all printer 
features!! Includes a powerful mailmerge for mailing lists! List $39.95 Sale $34.95. 


2. *H.E.S. Writer’ Word Processor Cartridge! Full screen editing, scrolling up and down, word 
wrap, left and right justification, centering, page numbering, screen text preview and more! List 
$39.95. Sale $24.95. 


3. “Total Text" Word Processor creates professional documents! Features include page number- 
ing, right and left margins, paragraph control, upper/lower case, full screen editing, footnotes, 
etc.! (8K Ram required) Tape List $34.95. Sale $19.95. 


4. “Total Labels" Mailing List! Keep and print mailing list labels with ease. Add change and 
delete labels, alphabetize, option to select any part of list. (8K Ram required) Tape List 
$24.95. Sale $14.95. 


Add $3.00 for postage. Add $6.00 for CANADA, PUERTO RICO. HAWAII E Q | E C | oO 
orders. WE DO NOT EXPORT TO OTHER COUNTRIES 

Enclose Cashiers Check, Money Order or Personal Check Allow 14 (WE LOVE OUR CUSTOMERS: 
days for delivery, 2 to 7 days for phone orders, 1 day express mail! E NTE RPRIZ E S 

Canada orders must be in U.S. dollars. We accep! Visa and Master BOX 550, BARRINGTON, ILLINOIS 60010 

Card We ship C.O.D. Phone 312/382-5244 to order 


@ SANYO MONITOR SALE!! 


9" Data Monitor 


e 80 Columns x 24 lines 

e Green text display 

е Easyto read - no eye strain 
e Up front brightness control 
e High resolution graphics 

e Quick start - no preheating 
е Regulated power supply 

e Attractive metal cabinet 

e UL and FCC approved 


e 15 Day Free Trial - 90 Day Immediate Replacement Warranty 


9" Screen - Green Text Display 


*$ 69.00 


12" Screen - Green Text Display (anti-reflective screen) *$ 99.00 
12" Screen - Amber Text Display (anti-reflective screen) *$ 99.00 


14" Screen - Color Monitor (national brand) 
* PLUS $9.95 for Connecting Cable. 


Display Monitors From Sanyo 


With the need for computing power growing every day, Sanyo has 
stepped in to meet the demand with a whole new line of low cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. All models come with an array of features, including up- 
front brightness and contrast controls. The capacity 5 x 7 dot 
characters as the input is 24 lines of characters with up to 

80 characters per line. 

Equally important, all are built with Sanyo's commitment 

to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality is 
reflected in our reputation. Unlike some suppliers, Sanyo designs, 
manufactures and tests virtually all the parts that go into our products, 
from cameras to stereos. That's an assuránce not everybody can 
give you! 


*$249.00 


Ф SANYO | 


Official Video Products 
of the Los Angeles 1984 Оутрісѕ 


Ж 


€ 


BY 


* LOWEST PRICES • 15 DAY FREE TRIAL е 90 DAY FREE REPLACEMENT WARRANTY 
e BEST SERVICE IN U.S.A. e ONE DAY EXPRESS MAIL е OVER 500 PROGRAMS • FREE CATALOGS 


ке өле «ке «еее «к» о өм» «ме «к» «ле «м» ек» еке «ке еке «к «ке «мә еке «ке «к» «к» —— «шә е 
V даа $10.00 for shipping, handling and Insurance. Illinois residents V 
1 please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII [| 


[| orders. WE DO NOT. EXPORT TO OTHER COUNTRIES. і 


| Enclose Cashiers Check, Money Order or Personal Check. Allow 14 | E N TE R PR і 2 Е S (WE LOVE OUR CUSTOMERS) 


days for delivery, 2 to 7 days for phone orders, 1 day express mail! 
| Canada orders must be in U.S. dollars. Visa - MasterCard - C.O.D. | BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 


ONE CALL GETS IT ALL! 
TELECOMMUNICATIONS SALE!°49 


Make a connection! Ай 
for Commodore REACH OUT AND 


VIC-20 and 64 че АССЕ55 5ОМЕОМЕ 


Wander the wires of bulletin board 
Systems gathering information and 
making new computer friends! 


^ 
DELUXE 40 CHARACTER MODEM SALE $49.00 sss. 


Saves on-line time; Easier to read! 

Direct connect, originate/answer, half and full duplex! 

Terminal program (tape included) Disk— Add $5.00! 

One year free access to Compuserve, 2 hours free on-line time! 


15 day free trial — 180 day free replacement warranty! 
Instruction manual! 


80 COLUMN TERMINAL CARTRIDGE SALE $59.00 
е No cassette or disk drive needed! 
$59.00 (List $99.00) 
$99.00 (List $199.00) 


Converts your computer screen to 40 or 80 columns! 
You can add a 40-80 column word processor, mailmerge 
and electronic spreadsheet for only $24.95 (tape or disk). 


SMART 64 MODEM PROGRAM SALE $26.95 ss, 


* One key password automatic entry! (DISK) 
* On-line alarm timer! 

* Prints out all information received! 

*. Record and send programs on disk! 

* Use with Protecto 40-80 column terminal! 


e LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
е BEST SERVICE IN U.S.A. е ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 
Add $3.00 for postage. Add $6.00 tor CANADA. PUERTO RICO, HAWAII [ 2 oO I Ен С T Q 
orders. WE DO NOT EXPORT TO OTHER COUNTRIES 
Епсі С Ch QM о г D с ISTOMERS| 
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Canada orders must be in U.S. dollars. We accept Visa and Master- BOX 550, BARRINGTON, ILLINOIS 60010 
Card. We ship C.O.D. Phone 312/382-5244 to order 


Factory Clearance 


CREATIVE 
Wl SOFTWARE 


VIC-20 
Cartridge 
Games 


Astroblitz 
(Like Defen- 
der.) Voted No. 
1 computer 
game overall by 
Creative Com- 
puting! Fan- 
tastic copy of an 
arcade classic. 
Destroy alien saucers and gun 
towers while avoiding enemy 
objects that float by. List $34.95. 
Sale $7.95. 


Apple Panic — Тһе fast |Р Ж 


action computer game DERNE 


a hit now comes to the 
Priced 


VIC-20. You must dig 
Below traps in the brick floor 
Cost and wait for the wander- 


ing apples to fall in. 


Rat Hotel — Here you get to play the 
rat. Running and jumping from floor 
to floor in Hotel Paridisimo you must 
eat whatever you find but Waldo the 
maintenance man has set many 
traps for you that you must avoid. 
Plus Waldo has an atomic elevator 
that let's him jump several floors at 
once. See if you can get to the bot- 
tom before Waldo does you in. Fantastic graphics 
and sound. List $34.95. Sale $9.95. 


Spills & Fills — How much is too 
much? How much isn't enough? With 
this original concept educational 
game designed for grade schoolers 
through high school students, you 
can develop ratio and perspective 
skills. With three exciting and 
challenging skill levels, this program 
presents new and ever-changing 
challenges for the inquisitive mind. Sale $9.95. 


Trashman (Better than Pacman). Dash for the trash 
and pick up CASH!!! List $29.95. Sale $9.95. 


PROTECTO 


EN TE RPRIZ E S (WE LOVE OUR CUSTOMERS) 


BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 


SPILIS & FILLS 


Your Choice 


$7. 


Was $34.95 


No. 1 Seller In U.S.A. 


Serpentine 
Awarding win- 
ning game. 
Avoid hostile 
red snakes and 
lay your young 
while getting 
food to keep 
you alive. Fan- 
tastic strategy game that has 
become a classic. List $34.95. 
Sale $7.95. 


95 


Then simply beat them 
on the head to push it 
through and destroy the 


apple. Otherwise the Woie 
apple's will roll right ҮШ 


over you and kill you. 
(Fast action.) List $34.95. 
Sale $7.95. 


Terraguard — Your mission is 
to destroy the aliens before 
their ship has a chance to land. 
Move your base along the 
ground and shoot up at them. 
List $34.95. Sale $9.95. 


Video Mania — You're in an 
open field and strange alien 
creatures are roaming all over. If 
you stand still too long, they'll | А 

collide with you, causing instant ДК 
annihilation. Your only defense 4 2 

is to destroy them by throwing your electronic, 
football-shaped alien zapper at them. Sale $9.95. 


Household Finances — This 4 part 
program will take care of all your 
family's finances. Record, change 
and delete expense and income 
items from 16 categories, monthly 
and yearly totals are easily graphed 
and even a budgeting program to 
help you clamp down on excessive 
spending. List $34.95. Sale $9.95. 


——— = == ————————— н — —— — — ——— 
| Add $3.00 tor postage. Add $6.00 for CANADA. PUERTO RICO, HAWAI! 8 
| orders. WE DO NOT EXPORT TO OTHER COUNTRIES [] 
| Enclose Cashiers Check, Money Order or Personal Check Allow 14 fj 
| days for delivery, 2 to 7 days for phone orders, 1 day express mail! [| 
| Canada orders must be in U.S. dollars. We accept Visa and Master | 
t Card. We ship C.O.D. 


POWER BASIC 


One-Touch Keywords 


Mark Niggemann 


This powerful programming utility puts 52 of 
the most common BASIC keywords at your 
fingertips. For the VIC-20 and Commodore 64. 


The less time spent typing, the more time you 
have for programming. “One-Touch Keywords" 
lets you use any of the letter keys in combination 
with either the SHIFT or Commodore key to in- 
stantly print a BASIC keyword on the screen. For 
example, instead of typing GOSUB, you can hold 
down SHIFT and press G, and GOSUB will appear 
as if you had typed the whole statement. See the 
table for a list of all the keywords available. 


Which Computer? 


This utility works on both the VIC and 64. It ini- 
tially detects which computer is being used and 
then modifies itself as necessary. These modifica- 
tions are POKEd right after the relocation adjust- 
ments. 

To detect which machine the program is run- 
ning on, PEEK 65532, a ROM address. If this loca- 
tion contains a value of 34, the program is being 
run on a VIC. Otherwise, it's on a 64. This is an 
easy way to detect which machine you are working 
with and can be used in any program designed to 
work on both the VIC and 64. 

A final checksum routine (lines 710-750) is 
included to aid in finding any errors in the machine 
language data. After you run the program once, 
type RUN 700 and the program will check your 
typing. Recheck the DATA statements if you get 
an error message. This final checksum is added 
insurance to the line-by-line checksum provided 
by the “Automatic Proofreader.” 


Activating The Keywords 
The program is a BASIC loader which moves the 
112 COMPUTE!’s Gazette June 1984 


machine language from DATA statements into 
the upper part of free memory. It also protects the 
machine language from interference by BASIC. 

To activate the machine language, you must 
type SYS followed by the number given as the on/ 
off address, then press RETURN. The one-touch 
keywords will remain enabled even after the 
RESTORE key has been pressed. To disable the 
keywords, SYS.the on/off address again. 

See program listing on page 175. 


Commodore 


PRINT# 
OR 

ASC 
DATA 
END 
NEXT 
RETURN 


RESTORE 
SAVE 


LEN 
RND 
CLOSE 
PEEK 
SPC( 
LEFT$ 
VAL 
THEN 
SOR 
CMD 
EN 


FRE 
COS 
SYS, 


Neéx*z«cdemosozezcms-mommgosw» 


TELSTAR 64 


Sophisticated Terminal Communications Cartridge for the 64. 


*PFO* 10D 00D CP D1 D2 BELL 12:30:00 
(TELSTAR's Status Line) 


Don't settle for less than the best! 


* Upload/Download to/from disk or tape. 

* Automatic File Translation. 

* Communicates in Industry Standard ASCII. 

e Real-Time Clock plus Alarm Clock. 

* Line editing capability allows correcting and resending long command lines. 
* 9 Quick Read functions. 

* Menu-driven. 

e Similar to our famous STCP Terminal package. 

Works with Commodore Modems and supports auto-dialing. 


The best feature is the price — only $49.95 (Cartridge and Manual) 


10:14:36 


Machine Language Monitor Cartridge 
for the CBM 64 


More than 20 commands allow you to access the CBM 64's Microprocessors 
Registers and Memory Contents. Commands include assemble, disassemble, 
registers, memory, transfer, compare, plus many more. 


Someday every CBM 64 owner will need a monitor such as this. 
Cartridge and Manual — $24.95 


8K in 30 Seconds 
for your VIC 20 or CBM 64 


Ifyou own a VIC 20 or a CBM 64 and have been concerned 
about the high cost of a disk to store your programs on. 
worry yourself no longer. Now theres the RABBIT. The RABBIT 
comes in a cartridge, and at a much, much lower price 
than the average disk. And speed . . . this is one fast RABBIT. 
With the RABBIT you can load and store on your CBM 
datasette an 8K program in almost 30 seconds, compared 

to the current 3 minutes of a VIC 20 or CBM 64, almost as 
fast as the 1541 disk drive 

The RABBIT is easy to install, allows one to Append 
Basic Programs, works with or without Expansion 
Memory, and provides two data file modes. The 

RABBIT is not only fast but reliable. 

(The Rabbit for the VIC 20 contains on expansion con- 
nector so you can simultaneously use your memory board, elc.) 


NOW 
THE BEST 
FOR LESS! 


For CBM 64, PET, APPLE, and ATARI 


Now, you can have the same professionally designed Macro 
Assembler/Editor as used on Space Shuttle projects. 

© Designed to improve Programmer Productivity, 

* Similar syntax and commands - No need to relearn peculiar 
syntaxes and commands when you go from PET to APPLE to 
ATARI 

Ф Coresident Assembler/Editor - No need!o load the Editor, then 
the Assembler, then the Editor, elc. 

Ф Also includes Word Processor, Relocating Loader, and тис! 
more. т 

* Powerful Editor, Macros, Conditional and Interactive 
Assembly, and Auto - zero page addressing 

Still not conviriced; send for our free spec sheet! 


SS 
$39.95 


3239 Linda Dr. 
Winston-Salem, М.С. 27106 
(919) 924-2889 (919) 748-8446 
Send for free catalog! 


SUPERTAX 


THIRD SUCCESSFUL YEAR! e THOUSANDS ALREADY IN USE! 


Use SUPERTAX personal income tax programs to calculate your tax lability now and have plenty of 


time to make year-end investment decisions to improve your position. SUP 


тм Get Supertax by Rockware Data 
and get the jump on your 
1984 Income Tax Planning 


RTAX was specifically 


created for Commodore 64 users by a practicing CPA with a Master's degree in tax accounting. 
Highly acclaimed by tax pros, CPA's and tax preparers, SUPERTAX is easy to understand and a 


pleasure to |work with. 


* SUPERTAX is fully screen-prompted and includes 
a manual loaded with valuable tax information, 
instruction and guidance. 

* SUPERTAX instantly recalculates your entire return 
when you change any item. 


* SUPERTAX DATA can be stored on a diskette. 

* SUPERTAX updates are available at 50% 
discount to registered SUPERTAX owners. 

* SUPERTAX is an essential addition to your 
personal software library—best of all it's tax 


* SUPERTAX prints directly on IRS forms. 


FOR TAX PLANNING 

Using either screen or printer output, SUPER- 
TAX generates clear and concise summaries of 
Page 1 and 2 and Schedule A of FORM 1040 
allowing you to see at a glance and to quickly 
comprehend your tax situation. This program 
also prints an OVERALL SUMMARY of the 
return showing Adjusted Gross Income, 
Itemized Deductions, Taxable Income, Regular 
Tax and Payment Due or Refund—all of which 
are calculated by the program. SUPERTAX also 
calculates the moving expense deduction, 
investment credit, taxable capital gains, political 
and child care credits, medical limitations, and 
much more. Input is fast and easy and changes 
can be made in seconds. This program actually 
makes tax planning a breeze. 


deductible. 


FOR RETURN PREPARATION 
SUPERTAX PRINTS THE INCOME TAX 
RETURN: This program prints page 1, page 2 
of the FORM 1040, Schedules A, B, W and G 
(income averaging) of the FORM 1040 as well 
as FORM 3468 (investment tax credit) on 
standard IRS government forms or on blank 
computer paper for use with transparencies. 
Any item of input can be changed in seconds 
and the entire return is automatically recalcu- 
lated to instantly reflect the change. 


NOTE: Printing on government forms 
requires friction feed printer. 


TO ORDER Call Toll Free 1-800-527-4171 In Texas Call 214-739-1100 
MasterCard, VISA, Money Orders, Bank Checks and COD Orders Accepted 
(add 3% surcharge for credit card processing) (add $5.00 for COD) ($3.00 Shipping) 


FOR 

DEPRECIATION 

CALCULATION 

This program calculates 

and prints Schedule C of 

the FORM 1040. Also 

included is a stand alone 

depreciation program which caculates 

and prints your complete depreciation 
schedule using both the old rules and the 

new ACRS rules. Output from the depreciation 
program is designed to serve as a supplement 
to IRS FORM 4562. $ 


Products shipped FOB Dallas, TX 


Commodore 64 is a trademark of 
Commodore Business Machines 


For Brochure WRITE 

Financial Services Marketing Corp. 
10525 Barrywood Drive 

Dallas, Texas 75230 


MACHINE LANGUAGE FOR BEGINNERS 


RICHARD MANSFIELD, SENIOR EDI 


Indirect Addressing 


This month we'll take time out to answer a ques- 
tion which came in the mail: 


Q:: hope you'll go over indirect indexing again. 
Why is it important? I found it hard to absorb at 
first. 


А: Everyone does. It's one of those things 
which—once you know how to do it—is easy to 
use and even obvious. But everyone I've ever 
known who learned machine language has had to 
puzzle this one out. It's an addressing mode, a way 
of sending a byte from one place in the computer 
to another. 

There are various ways to send these bytes, 
various addressing modes you can choose from. 
Like BASIC's POKE 1024,65, machine language 
(ML) can also send the number 65 to the first RAM 
memory cell of the screen on a Commodore 64. 
ML could do it in this fashion: 

LDA £65 (load the accumulator with 65) 

STA 1024 (store the accumulator at address 1024) 
That's the Absolute addressing mode. It's 
straightforward. Load it, store it. 


Making А Bank Shot 


Yet there are other ways, other addressing modes, 
which send a byte from the accumulator to a target 
address. What's often called Indirect Indexed 
addressing (I like to call it Indirect Y) is not as 
straightforward as Absolute addressing. You load 
it, and bounce it off a zero page pointer. This idea 
does take a few minutes to learn, but it's a funda- 
mental and very powerful ML programming tech- 
nique. You should study it, play with it until you 
master it. It's like a bank shot in basketball: you 
make a basket by bouncing the ball off the back- 
board. In other words, it's an indirect shot: 
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LDA #65 

LDY #0 

STA (253), Y (253 is a zero page backboard off which 

the 65 bounces. Such two-byte, zero page locations 
are called pointers.) 

The confusing part is how 253, even enclosed 
in parentheses, sends that 65 up to 1024. The 
parentheses and the ,Ү are just symbols that alert 
an assembler program to use the Indirect Y ad- 
dressing mode. An assembler is to machine lan- 
guage what BASIC is to BASIC programs: it inter- 
prets and creates a series of instructions that the 
computer can follow. 

But why 253? What's special about this zero 
page address that causes bytes to go to 1024 in- 
stead of 5000 or 8992? The answer is that Indirect 
Y addressing is a two-step process: First you must 
put the target address (1024 in our example) into 
whatever two bytes in zero page that you plan to 
use as a pointer. In other words, you put the 1024 
into addresses 253 and 254 yourself before you can 
STA (253), Y and have bytes bounce up to 1024. 


Position Matters 

So far, so good. But how do you set up an 
address pointer? The 6502 chip expects all such 
addresses to be stored into two consecutive bytes 
and it wants the higher byte in memory of this pair 
to hold a number that is to be multiplied by 256. 
Thelower byte in memory will hold any remainder 
left over after the multiplication. Thus, in our 
example above, the number in cell 253 will be the 
remainder and the number in 254 will be what's 
multiplied by 256. The position of the two numbers 
in the pointer is important. How would you set 
up a pointer to hold the address 15? It would be: 
15 0. Nothing is multiplied by 256. How about 
storing the number 1024? 


UNIQUE HARDWARE 


For Your Commodore or Vic 


Commodore or Vic Color Problems? 
We Can Solve Them All. You're not alone. Thousands of Commodore 


“ 64 owners have "fuzzy" color on their TVs. 


Most have interference lines crowding out their great graphics. Many have bought expen- 
sive monitors or new TVs, and often even that hasn't helped. But, most of us just lived with ` 
the problem. Now the engineers at Bytes & Pieces have four simple, inexpensive solutions. 


It you have an "old 64" (with the 5 pin Monitor Din Plug), you've probably had color, resolu- 
tion and interference problems. We can solve them! 


1 The Interference Stopper... For Уіс-20 

“ and Commodore 64. A new kit that installs 
in minutes with two simple solder connec- 
tions. Best results when combined with #2, 
3, от 4 below. Absolutely stops 90% of the 
RF interference on your screen. $15. 95 


The NEW Color Sharpener CABLE. . .Use if 
your "old 64" is hooked up to a monitor. 

А new 2 prong cable, with the Color 
Sharpener built in. All the benefits of 42, on 


your monitor. $24.95 


2. The Color Sharpener. . .Use if your 

а "old 64" is hooked up to a TV. Just plug 
into the monitor plug, and the color 
and contrast immediately improve. 
Dramatically. Crisp letters. Great 


graphics. $18.95 


4. The Monitor "Improve: -If you have 
* a Commodore 170! monitor, this cable 
(3 prong) gives you a picture you 
won't believe. Better than the cable 
Commodore built...by a lot. Try it, you 

won't be disappointed. (Also hooks 


your "Old 64” to the 1702) $24. 95 
D 


5 At last, the "needed" switch for al! 

* Vic-20's and Commodore 64's. Com- 
modore left out something that's really 
important — a simple reset switch. How 
many times have you been programming 
and gotten “hung-up” in your software? 
The only way to get back in control is to 
turn off the computer and lose your pro- 
gram and everything you had entered so 
far. Well, the engineers at Bytes & Pieces 
have solved that one too. ..a reset switch. 
Now installing this does require you to 
open your computer, make two simple 
solder connections, and drill a small hole 
in the case (to mount the switch). Obvi- 
ously, this connection will void your 
warranty, so don't proceed until your 
computer is out of warranty. But the day 
that happens. install the reset switch. It's a 
time saver, and it's guaranteed to return 
control to you every time. Of course, you're 
guaranteed to be satisfied. 


A steal at $9.95 


6 Dust problems? We've got the answe: 

* There are a lot of cheap dust covers 
on the market, most of them made 
from static-filled plastic. But there are 
some of us who think a lot of our Com- 
modores. We want to protect them and 
have them look nice at the same time! 
That's why Bytes & Pieces built the best 
looking dust covers on the market. 
They're hand-sewn from leather-like 
naugahyde in a brown leather-grain 
pattern. They're custom-built to fit your 
Commodore 64, and here's the best 
news of all. You can get matching ` 
Covers for your disk drives and your 
cassette unit as well. You made a big 
investment in your Commodore; spend 
а few more dollars and protect it from 
damaging dust for life. Your satistaction 
is guaranteed. 


Computer dust covers: $9.95 
Disk drive dust covers: $8.95 
Dataset dust covers: $7.95 


Why Blank “Cheat” Sheets? 


Because 
They're 
Better 
Blank 


OK. So now you've got the best computer 
in the world, and lots of complex software 
to run on it. One problem. Unless you work 
with some of these programs everyday or 
are a computer genius, who can keep all 
those commands straight? "F5" in one 
program means one thing, and "F5" in 
another program means something else. 


Rush me the following: 

Gy. Item Amount 
— — Commodore 64 Interference Stopper @$1595 $5 __ 
— — Уіс20 Interference Stopper 051595 ГМ; 
Color Sharpener @$1895 9-22 88 
—— МЕМ Color Sharpener Cable 52495 Пааа 
— — Тһе Monitor Improver "52495 $ err 
— — Тһе Reset Switch @ $995 DIT 
Dust Covers 

— —— Commodore Dust Cover @ 5995 $i 
— . Vic-20 Dust Cover @ 5995 SC E 
— —— Іа Disk Dust Cover @5895 CALI US 
—— Dataset Dust Cover 05795 OERS 
Cheat Sheets. 


—— Sets of 12 Keyboard Cheat Sheets 051595 5 


2 Packs (24 Sheets) @ 52495 Bic 


A few companies do offer a solution...a 
die cut "cheat" sheet that attaches to your 
keyboard with all the commands of one 
program printed on it. Great idea, unless 
you need them for 1O or 20 programs. You 
Could purchase another disk drive for the 
same investment. Our solution? Simple. A 
pack of I2 lined cards, die cut to fit your 
keyboard and just waiting to be filled with 
those problem commands you forget most 
often. Simple? Yes, but effective. Now you 
can have all your program commands 
right at your finger tips on YOUR VERY 
OWN, custom designed "cheat" sheets. 
Order a couple packs today! 


12 for $15.95 


Is Your 
Commodore 
Disk Drive 
Hot and 
Bothered? 


Most of them are, you know. Com- 
modore makes a great disk drive. Only 
trouble is, they suffer from read and write 
problems frequently. And almost always, 
it means a trip to the shop for a head 
alignment. Maybe you can айога to 
have your drive out of commission for a 
while. And to pay to have your drive 
repaired. But we've been told that most 
of these problems occur because the 
drive has overheated, throwing the 
head out of alignment because of parts 
expansion. 

The engineers of Bytes & Pieces 
pondered this problem, and came up 
with a simple solution. An inexpensive 
muffin fan that sits on top of the disk 
drive and blows cooling air through it. 
No more hot and bothered drives. No 
more heat-caused read/write problems. 
A simple, inexpensive solution. And best 
of all, the fan will work on other com- 
puter items as well, as long as they have 
vent holes in the top. Just set the padded 
fan on top and your problems with over- 
heating are over. 

And we went one step further. We built 
а surge protector into a second fan 
model. Most double-outlet surge protec- 
tors sell for more than the cost of our fan 
and surge protectors put together. 


So order today. You won't. be sorry. Satis- 
faction guaranteed or your money back. 


Muffin fan $54. 95 


Fan with 


surge protector $79.95 


~--Order Today!----------==-=-—-- 


Qty. Item Amount 
Muttin Fons 
Muttin Fans @ $5495 gem 


Muffin Fans with Surge Protector @ 57995 5 | 


Shipping & Handling 
Sub Total 
5% State Tax (Wisconsin Residents only) 


Bytes & Pieces, Inc. 


550 N. 68th Street, 
Wauwatosa, WI 53213 
Dealer Inquiries Invited 


Пспесе or Money Order enclosed 
Charge to my VISA or Mastercard 


VISA® Ж. ейт c 
MasterCard # E Lec RENS келе 
Inner Bank # 


Expiration Date is UE are 024, 


Name ааъ 
Address 
City eL LEE 
State/Zip 


Preparing The Pointer 

To set up any address pointer, you first divide the 
number by 256 to get the higher byte (usually called 
the "most significant byte," or "MSB"). 1024/256 =4. 
So 1024 would be stored: 0 4. Thereis no remainder 
in this case. That is, address 253 above would con- 
tain a 0 and address 254 would contain a 4. Using 
an assembler, you would set up this pointer by: 


LDA £0 (Load A with the LSB, the least significant 


byte) 
STA 253 
LDA £4 (the MSB) 
STA 254 


What would a pointer to 1025 look like? 1 4. 
And 1027 would be3 4. Such pointers, fortunately, 
do not need to be calculated often in a normal ML 
program. But when you need them, they're quite 
useful. The easiest way to figure out how to set 
up a pointer is to use a calculator. Put in the 
number, divide by 256, subtract the integer, and 
multiply by 256. Let's practice it: 

Enter 1027 and then divide it by 256. You get 
4.01171875. The integer, the whole number to the 
left of the decimal point, the 4, is our MSB. Jot it 
down. Then subtract it from the answer to leave 
the fractional part, .01171875. Now to get the LSB, 
just multiply this fraction by 256. There's the 3. 


AStar is Born. 


A Communications Cartridge 
for the Commodore 64. 
Upload/Download, Status Line, etc. Works with 
your Commodore 1600 or 1650 Modem. 
Auto-dialing, etc. when used with the new 
CBM 1650 Modem. 


Cartridge and Manual - $49.95 


3239 Linda Dr. 
Winston-Salem. N.C. 27106 
(919) 924-2889 (919):748-8446 


asi er i 
pouse 


On most calculators, you'll need to enter 1027 + 
256 = —4 = X 256 =. 

By now, all this bother seems hardly worth 
it. Why not just LDA 65:STA 1024? If that one 
load and store is all you're doing, Absolute ad- 
dressing is the easier and faster way. On the other 
hand, loops and such greatly benefit from the 
Indirect Y addressing mode. What if you wanted 
to check the first 256 screen RAM cells for the 
letter A? It would be swift and effective to store 0 
and 4 into 258 and 254 and then: 


1000 LDY #0 

1002 LDA (253), Y 

1005 CMP #65 (is it the letter A?) 

1007 ВЕО 1020 (if so, go do something in response) 

1009INY (otherwise, raise the index and look at the 
next cell) 

1010 BNE 1002 (branch back to the start of the loop 
unless Y resets to zero.) 

1013 do something here which shows that no A was 
found. 


1020 do something here which shows that we did find 
an А. 


Notice the INY. It's the secret of the power of 
Indirect Y addressing. The value of Y is added to 
the pointer. Therefore, you can address any cell 
within a 256-byte range by just changing the value 
of Y. 1024 becomes 1025, 1026, 1027...quickly, 
with each INY. DEY would work in the opposite 
direction. 


200 LDAs 


Imagine using Absolute addressing to accom- 
plish this same task: 


1000 LDA 1024 

1003 CMP #65 

1005 BEQ 990 found it, so branch. 

1007 LDA 1025 didn't find it, so keep on looking. 

1010 CMP #65 

1012 BEQ 990 

1014 LDA 1026...and so on, 198 more times! 

One final note: You can't use just any zero 
page pair of memory cells to store your pointers. 
You have to share this first 256 bytes with your 64 
or VIC's BASIC and with its operating system. 
They put their pointers into zero page for the same 
reason that you will. 

If you don't use a tape drive, locations 165-177 
are safe to use. Even if you do use tape, you can 
store things there if you don't load or store any- 
thing to or from tape while the ML program is 
running. Most of the ML you'll write won't involve 
loading or storing during the execution of a pro- 
gram anyway, so 165-177 are normally available. 
And addresses 251—254 are always safe. 

If you have any questions or topics you'd like to 
see covered in this column, please write to: Machine 
Language For Beginners, P.O. Box 5406, Greensboro, 
NC 27408. 


THOUGHTFUL 
EDUCATIONAL „В 
PROGRAMS РА 


CREATIVITY SERIES 
MY BOOK Ages: 4 and up 


Your child makes his or 

her own book! 

Using only a joystick, your 
TWENT'UTSIDE WITH mommy, баз: | YOUNGSter picks objects 
DAN MY BROTHER TO SEE THE from the library (prin- 

cesses, pirates, houses, 
vehicles, people, etc., colors them and arranges 
them in the picture! 

Older youngsters can then type in a story-line or 

caption, and the page is saved to disk. 

Page after page can be saved. But the fun isn't over 

yet! Your. child can PRINT the book on almost any 
printer capable of producing Commodore graphics! 


The first program in BECi's new Creativity Series. 
Available soon for the Atari. 


C-64 DISK: $34.95 


CHILD DEVELOPMENT SERIES 


“Тһе goal of Boston Educational Computing is to 
provide owners of the most elementary computer 
systems witn educational software that can be used 
easily by those with little knowledge of computing. 

"In its Child Development Series, BECi (pro- 
nounced Becky) meets this goal."* 

*Computes!'s Gazette, January 84 


Hh . ALPHA-BECi Ages: 2 and up 


aay E An alphabet program with 26 screens, each 
featuring a capital and small letter and an object. 
“For a child, watching the colorful objects appear on 
screen is like opening а present."* 

(VIC-20 only). 


| |NUMER-BECi Ages: 2 and up 

7” . JNumber identification and color and shape 
grouping. Five levels and adjustable timing. 

(4222 7 ADD/SUB Ages: 5 and up 


4 


4 4 Addition and subtraction. Up to four digits. 

Optional objects, carries and borrows, decimal points 

and hints. Answers entered from right to left, one digit 

at a time. 

| MULT-BECi Ages: 7 and up 

(==) Multiplication. Up to four digits in multiplier 

and multiplicand. Answers entered from right to left, 

one digit at a time. 

TAPE: $19.95 DISK: $24.95 

If ordering directly from BECi, add 596 (or $2.00 mini- 

mum) for shipping. 

BOSTON EDUCATIONAL COMPUTING, INC. 

Dept.G T 

78 Dartmouth Street 
Boston, MA 02116 

(617) 536-5116 


Dealer Inquiries Invited 


C-64 VIC 20 ATARI 


( 2389 
X 813 


7167 


2. 2. 
Charge cards апа p 


machine language 
teaching system 
that works. 


Machine language programming isn't easy, but you 
don't have to be a genius to learn it. Despite what 
you may think after getting lost in umpteen "How 
to program the 6502" books. Let your Commodore 
64 teach it to you. 

The Visible Computer: 6502 is an award- 
winning blend of text and software that thousands 
have used to master the elusive skills of machine 
language. 

It's an animated simulation of the 6502 micro- 
processor that lets you see with your own eyes how 
the 6502 works. You'll be using it as a debugging 
tool for years to come. 

It's a tutorial. The 150 page manual is more 
than just instructions on running the simulator — 
it may just be the best book on machine language 
ever written. 

It's 30 demonstration programs you'll work 
through with the 6502 simulator, from simple regi- 
ster loads to advanced graphics programs. 


gum шипа шышы салып ie тшшш шеу 


| The Visible Computer: 6502 | 


Send me The Visible Computer: 6502 for Com- 
modore 64 (requires disk drive). Гуе enclosed | 
$39.95 plus $2.50 postage and handling. 


| Check or Money Order [ ] Visa [ ] Mastercard | 


| Name | 


Address 


City/State/Zip 


| Credit Card No. . | 


Sojtware 


| Masters” 

3330 Hillcroft, Suite BB 
| Houston, Texas 77057 
L* (713) 266-5771 


File Copier 


Martin Engert 


“File Copier" is a BASIC utility that lets you 
transfer files from one disk to another using a 
single drive without worrying about starting 
addresses or machine language. For the VIC-20 
and Commodore 64. 


"File Copier" can help those who want to copy 
sequential or program files from one disk to 
another, but have only a single disk drive and no 
machine language monitor. Since the program is 
written in BASIC, it'sa bitslow. Butone advantage 
of this program over a machine language monitor 
when transferring machine language programs is 
that you don't have to know the initial address or 
length of the program to be transferred. 

File Copier works on both the VIC-20 and 
Commodore 64. The program first resets the top 
of BASIC pointers to reserve 1K of memory for 
itself. The remaining memory is used to store 
your file temporarily. VIC users should make 
sure enough memory is available for this purpose 
before running the program. Any amount of ex- 
pansion memory can be added if necessary. Each 
byte of your file is then read from disk using the 
GET# command and POKEd into free memory. 
Then you insert the new disk and the program 
writes these bytes onto it using PRINT#. After 
the file is copied, the top of BASIC pointers are 
restored to normal. 

Screen instructions are provided within the 
program for easier use. 


File Copier 


10 POKE251,PEEK(52) :rem 49 


20 POKE52,PEEK(44)-4:POKE56,PEEK(52) :CLR 

:rem 89 
30 PRINT"ÍCLR)])RUN THIS PROGRAM TO" 

:rem 175 
40 PRINT"COPY A PROGRAM OR" :rem 106 
50 PRINT"SEQUENTIAL FILE FROM" :rem 133 
60 PRINT"ONE DISK (THE SOURCE" :rem 30 
70 PRINT"DISK) TO ANOTHER (THE" :rem 73 
80 PRINT"DESTINATION DISK)." :rem 253 
90 PRINT"INSERT SOURCE DISK." :rem 57 
100 M-256*PEEK(52) srem 191 
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110 ОРЕМ15,8,15 :rem 32 
120 PRINT"WHAT IS THE NAME OF" :rem 203 
130 PRINT"THE FILE OR PROGRAM": INPUTFS 
:rem 83 
140 TS="P":PRINT"WHAT IS THE FILE ТҮРЕ" 
:rem 252 
150 PRINT"(P FOR PROGRAM, S FOR" :rem 68 
160 PRINT"FILE)" ігеп 177 
170 INPUTTS :rem 160 
180 OPEN2,8,2,FS+","+TS+",R" :rem 128 
190 INPUT#15,E,ES$,X,X:IFE<>@THENPRINTES :C 


LOSE2:GOTO120 :rem 134 
GET#2,AS:I1FAS$=""THENAS$=CHRS$(@):rem 90 
POKEM-J,ASC(AS$):J-J-41:1FST-ÜTHEN200 
:rem 66 
:rem 60 
:rem 125 


200 
210 


220 
230 


CLOSE2 
PRINT"INSERT DESTINATION" 


240 PRINT"DISK AND PRESS {RVS}RETURN" 
zrem 228 
250 PRINT"TO COPY." :rem 116 
260 GETCS$:1FC$«»CHR$(13)THEN269 :rem 6 
270 PRINT"PRESS {RVS}RETURN{OFF} IF YOU" 
:rem 7 
280 PRINT"WANT TO KEEP THE NAME" :rem 111 
298 PRINTF$ :rem 146 
300 INPUT"FILE NAME ";F$ :rem 77 
310 OPEN2,8,2,FS+","+TS+",W" :rem 128 


320 INPUT#15,E,ES,X,X:1FE<>@THENPRINTES :C 
LOSE2:GOTO300 zrem 129 
FORK-9TOJ-1:PRINT£2,CHR$(PEEK(M*K)) 7: 
NEXT :rem 7 
CLOSE2:CLOSE15 :rem 85 
POKE52, PEEK( 251) : POKE56, PEEK(251):CLR 


:rem 145 @ 


D ATLAS 
сау 


330 


340 
350 


COMPUTER ROA 


Est 


TAKE TRIPS WITH COMPUTER 
LISTINGS SHOWING THE 
BEST ROUTE 


ROADSEARCH 
MAP 


Enter the departing city and the destination city. ROADSEARCH computes the 
Shortest route. Prints miles, time, fuel and more. 

ROADSEARCH contains a roadmap of 406 cities/road junctions and 70,000 road 
miles. ROADSEARCH-PLUS (extra cost) also contains a ROADMAP DEVELOP- 
MENT SYSTEM which lets you customize your roadmap with up to 50 towns/ 
road junctions anywhere in North America 

EASY TO USE. Back-up copies allowed. Specify Commodore-64/disk or Apple 11/11е. 
All Columbia Software carries a 15 DAY MONEYBACK GUARANTEE. 
ROADSEARCH-PLUS is $74.95 and ROADSEARCH is only $34.95. Add $1.50 
shipping and handling. MD residents add 5% state tax. Ask your dealer or: 


TEES | 


Columbia Software 
Box 2235C, Columbia, MD 21045 
(301) 997-3100 


Food for Thought. 


Inventory 64." An easy-to-use 
menu-driven program that lets you 
track complete and complex invento- 
ries. Pinpoint locations, vendors, 
units of measure. Update prices, re- 
orders, sales, entire stocks. A power- 


Real computing at appetizing prices. 


64 PAK?" A self-teaching sampler 
package of 10 menu-driven programs. 
Ideal as an introduction to computing. 
Or compute your life expectancy, 
your mortgage payments, even learn 
the language of the deaf, plus a lot 
more. Only $19.95* on tape; 

$24.95* on disk. 


ful tool for your home computer at 
only $29.95* on disk. 


COMPUTER SOFTWARE Ass. 


PractiFile;" A fully professional file 
manager for your Commodore. 
PractiFile can handle mailing list 
entries by the thousands. You can 
change records, numbers, methods 
of filing, and a great deal more. Plus, 
its easy to use. Only $54.95* on disk. 


PractiCalc™ 64. The most powerful 
spreadsheet available for a home 
computer—at the least cost. Track 
investments, inventories, expenses. 
Project profits. Make charts. Keep 
mailing lists. Sort alphabetically or 


Total Health The fun way to keep 
fit. Stay on top of your daily intake 
and outgo of calories. Balance your 
daily diet and graph your progress— 
all tailor made to your body, past, 
present, and future. It's like having a 
health spa in your home for only 
524.95" on tape; $29.95*on disk. 


numerically, instantly. An incredible 
value at $49.95* tape; $54.95* disk. 


Now you can do real, honest-to-goodness computing at computer-game prices. Computer Software 
Associates brings you hard-working software that makes your work easy. (While it's easy on your budget.) 
All programs are easy to work with right on the screen, from self-teaching instant software that tracks your 
vital statistics to potent programs to track inventories and profits. 

Of course, if it's games you want, we've got them too. But if you're look- a COMPUTER 
ing for home computer power with real brainpower, look no more. Now SOFTWARE 
you can play for keeps. SD ASSOCIATES INC. 


Exclusively distributed by Micro Software International, Inc. « The Silk Mill, 44 Oak St., Newton Upper Falls, MA 02164 * (617) 527-7510 
*Prices are suggested retail; actual retail prices may vary. ©1984 Computer Software Associates, Inc. Commodore 64™, trademark of Commodore Business Machines, Inc. 


Appending 
Sequential Disk Files 


John S. Winn 


If you've discovered a clever, timesaving tech- 
nique, or a brief but effective programming 
shortcut, send it to “Hints & Tips," c/o COM- 
PUTE's GAZETTE. If we use it, we'll pay you $35. 
К<. зыт 


Sequential files are lists of things—phone num- 
bers, addresses, names, or other data—kept on a 
disk. They are similar to tape files (which are also 
sequential) because they keep the information in 
the same order it is entered. The first item written 
into the file will be the first one to come out when 
a program reads the file. 

It's easy to write BASIC programs to construct 
such lists. But how do you add new information 
to the end of a sequential file? 

The 1541 disk drive user's manual suggests 
two possible solutions. The first is to read the 
whole file, add the new data, and write the file 
out again. The longer the file, the more time it 
takes, which can be rather annoying. Or, perhaps 
you could switch to random access files, at a con- 
siderable cost in programming effort. 

A simpler method is available, but it's not 
mentioned in the user's manual, and thus is not 
widely known. The operating system on Commo- 
dore's PET and CBM series (with BASIC 4.0) in- 
cludes an APPEND command. The VIC and 64 
versions of BASIC do notrecognize this command, 
but your 1541 disk drive does. And it's simple to 
use. 

Normally, when you want to write a sequen- 


120 COMPUTE!’s Gazette June 1984 


tial file, you use OPEN 1,8,8, "filename,S,W" 
(the 5 means Sequential and W means Write). To 
read the file, replace the W with an R. The method 
for appending uses a similar form. If you want to 
add to a file which already exists, just use OPEN 
1,8,8, "filename, A" (A for Append). 

The following short programs demonstrate 
this useful command. First we'll write a new file 
containing the first ten letters of the alphabet. 


10 OPEN1,8,8,"ALPHABET,S,W" 
20 A$="ABCDEFGHIJ" 

30 FORJ-1TO10 

48 PRINT£1,MIDS$(A$,J,1); 

50 NEXT 

60 CLOSE1 


RUN the program. The red light on your drive 
should blink on, indicating the file is being written. 
Then, append to this file the next ten letters of the 
alphabet, using the A (Append) in the OPEN 
statement. Change lines 10 and 20: 


10 OPEN1,8,8,"ALPHABET,A" 
20 A$-"KLMNOPQRST" 


RUN the program again and the new data 
will be added to the file. Now read the file to 
doublecheck that the technique worked. Type 
NEW and enter this short program. 


10 OPEN1,8,8,"ALPHABET,S,R" 
20 FORI-1TO20 

30 GET#1,AS 

40 PRINTAS 

50 NEXT 

60 CLOSEl 


UNDIERWAIR I= 


Software that’s priced UNDER the competitions’ 


COMMODORE 64 


Just for You! 


PERSONAL FINANCE 


Continental Home Accountant (D) .. $47 
Continental Tax Advantage (D) . 33 
Continental FCM First Class Mail ..... $29 
Timewks. Electronic Checkbook (D&C) $49 
Timeworks Money Manager (D&C)... $49 


Timeworks Swiffax (0)... $39 
Creative Household Finance (D)..... $23 
Creative Household Finance (C)..... $49 
HesWare Finance Manager (D) ...... $49 
Cardco Tax Survival Program (D) .... $33 
WORD PROCESSING 


Blue Sky Script 64 (D) .. 
Cardco Write Now! (D) . 
Timeworks Word Writer (D) . 
On-Line HomeWord (D) 
Creative Joe's Writer (D) 


. $69 
$39 
2. $39 
... $39 

. $42 


HesWare OmniWriter & Spell (D) ..... $49 
Blue Sky Script 64 & Spell (D) ........ $69 
WordPro 3 Plus SpellRight (D). ....... $69 
HesWare Multiplan (О).............. $75 


HesWare Omnicalc (D) . $37 
MSI Practicalc (D&C) ......... $35 
MSI Programmable Spreadsheet (D) . $55 
Home Calc (D&C)..... .. $26 
Creative Jack's Calc (D) . $42 
Handic Calc Result Advanced (D)... $75 


DATABASES 
Creative Fred's Filer (D) ........ 
Timeworks Data Manager (D&C) 
Timeworks Data Manager Il (D&C) . 
CodeWriter Home Filewriter (D) . 
Entech Data Base 64 (D). 

MSI PractiFile (D) 


HOME APPLICATIONS 


Spinnaker Aerobics (D) . . $33 
CodeWriter Dialog (D) ..... $45 
CodeWiter ELF Easy Lang. Form (D).. $45 


ART & MUSIC 


Epyx Fun with Art (СТ)... 
Epyx Fun with Music (СТ). 
HesWare Paintbrush (CT) ......... 
Spinnaker Delta Drawing (СТ). 

Delta Music (CT) ....... 
HesWare Synthesound (D). 


. $42 
$49 
$39 
$55 
.$55 
. $39 


$27 
$27 
549 
526 
526 
. $49 


SPINNAKER LEARNING FUN 

Alf Color Caves (ct) ages 3- 
Alphabet Zoo (ct) ages 3-8 
Face Maker (ct) ages 3-8 
KinderComp (сї) ages 3-8 . 
Kids on Keys (ct) ages 3-9 
Bubble Burst (ct) ages 4-8. . 
Grandma's House (D) ages 4-8 . 


. $26 
$23 
$23 
$49 
$23 
$26 
$23 


Story Machine (ct) ages 5-9. . $26 
Ranch West (ct) ages 5-10 . $26 
Fraction Fever (ct) ages 7-12 $23 


JukeBox (ct) ages 8-adult . 
Aegean Voyage (ct) ages 8-adult... 526 
Up For Grabs (ct) ages 8-adult ...... 526 
Adventure Create (сї) ages 12 & up. $26 
DESIGNWARE (DISKS) 
Crypto Cube ages 8 & ир. 
Spellicopter ages 6 & up . 
Creatr. Creator ages 4-8 . 
Math Maze ages 6-11 
SpellakaZam ages 7-14 
SpellaGraph ages 7-14. 
SCHOLASTIC WIZWARE (DISKS) 
Turtle Tracks ages 9 & up . 
Bannercatch ages 9 & up 
Double Adventure ages 9 & up. 
Double Mystery ages 9 & up . 
Secret Filer ages 10 & up ...... 
Logo Robot ages 10 & up 
Square Pairs ages 7-12 . 
HesWare Turtle Graphics Il (ct). 


$26 


. $29 
$29 
$29 
. $29 
$29 
. $29 


Я 
$27 
$47 
$47 
$7 
547 
$47 
. $39 


COMMODORE 64 Cont'd. 
Creative | Am Your 64 1 (D) .......... $49 


Creative | Am Your 64 Il (D) . $49 
Scarborough Mastertype (D) ........ $29 
Scarborough Songwriter (О)... . $29 
Scarborough Foresman Probe (D) ... $29 


[LANGUAGES & UTILITIES] 


HesWare 6502 Pro Devel. Sys. (D) .... $49 


HesWare Hesmon 64 (CT) ........... $26 
HesWare 64 Forth (CT) .............. 545 
HesWare Graphics Basic (CT)........ $39 
HesWare HES CAT (О)... $49 
HesWare HES FONT (CT) . $16 
HesWare HES KIT (CT) . $39 
Acess Spritemaster (D&C sse ERE) 
Timewks. Programa. Kit I, Il, Ill (D&C)ea. $19 
Blue Sky Last One (О)............... 579 
Blue Sky 80 Column (О)... $29 
Blue Sky Graphic Designer (D). . $29 
Blue Sky 64 Statistics (D) .. . $29 
Blue Sky Super Basic (D) . 2. $29 
Blue Sky Add On Basic (D) . . $29 
Blue Sky Super Copy (О)... . $29 
BUSINESS SOFTWARE 

Cymbal General Ledger (D) ........ $45 
Cymbal Accounts Receivable (D) ... $45 
Cymbal Accounts Payable (D) ...... 545 


Cymbal Inventory Control (б)... 
Cymbal Invoice Writer (D). ...... 


[GAMES| 


Epyx Dragon Riders of Pern (D&C) ... $25 
Epyx Silicon Warrior (CT) ............. 525 
Epyx Pitstop (СТ).................... $27 
Epyx Temple of Apshai (D&C) ....... $27 
Epyx Gateway to Apashai (CT) ...... $27 


. $45 


Epyx Upper Reaches (D&C) . $46 
Epyx Jumpman Junior (CT) . $27 
Sublogic Pinball (D&C) . . $20 
Broderbund Choplifter (СТ). 25527 
Sublogic Flight Simulator .. . . $27 
Sega Congo Bongo (СТ)... .. $25 
Sega Star Trek (CT) ...... 2.. $25 
Sega Buck Rogers (CT)..... ... $25 
Acess Beach Head (D&C)...... 54523: 


Avalon НІ TelenGuard (C) .......... $45 


Avalon Hill В-1 Bomber (C) .......... $42 
Creative Crisis Mountain (CT) $25 
Synapse Fort Apocalypse (D&C)..... $22 
Synapse Blue Max (D&C) ........... $22 
Synapse Zeppelin (D&C) . $22 
Synapse Sentinel (D&C). . $22 
Synapse ZAXXON (D&C) ... ‚0528 
ScreenPlay Pogo Joe (D&C) . . $49 


ScreenPlay Asylum (D&C) ........... $23 
ScreenPlay К. Uston BlackJack (О)... $57 


Quick Silva Ring Power (D&C)....... $23 
Quick Silva AquaPiane (D) . . . $23 
Parker Q°BERT (CT). ......... $39 
Parker Popeye (СТ)... .. $39 
Parker Frogger (CT) . . $39 
Parker Star Wars (СТ)... .. $39 
Parker James Bond 007 (CT) . $37 
First Star Boulder Dash (D&C) . $25 
First Star Flip/Flop (D&C) .... . $25 
ELECTRONIC ARTS 

Pinball Construction Set (D) ......... $40 
MULE. (D) ...... . $40 
Worms? (D) ......... 462. GES 
Archon (О).. . $40 
Hard Hat Mack (D) . $35 
Murder on the Zinderneuf (D) .. $40 
The Tesseract Strategy (D) 2220! 
Word FED oe EM aD 
The Cut & Paste Word Processor (D) . $50 
D-Bug (б)......... 535 
Axis Assassin (D) ...... $35 
Music Construction Set (D) .... $40 
Financial Cookbook (D)............. $50 
Dr. J. & Larry Bird One on One (D) ... $40 


SOFTWARE 


UNDERWARE 


with each purchase of electronic 
_ айз software _ 


COMMODORE VIC 20 


Creative Home Offic $22 
Creative Home Office $19 
Creative Hous: Jos GU] 
Creative Househ (С?) 543 
ale $35 

le Plus (T $33 

$32 

$29 

$39 

Hes Mon (CT) $26 

Cardco Write Now. $27 
Epyx Fun with Art (C $26 


Epyx Fun with Must ) $26 


EDUCATIONAL SOFTWARE 


HESWARE SPINNAKER 


KinderComp (CT) ...... ... o8 
Story Machine (СТ)................. $23 
F Iker (СТ) e абы тесу 

es $23 
Alphabet Zoo (CT)... $23 


HesWare Turtle Graphics (CT) ........ $26 


Creative Pipes (C) . $49 
Creative Spills & Fills $49 
WizWare Turtle Tracks (С)............ $49 
WizWare Square Pairs (C) ........... $49 
E 

Creative Chopliffer (СТ).......... $19 
Epyx Temple of Apshai (С). $24 
Sega Congo Bongo ( МЕ $25 
Sega Star Trek (CT) ....... E $25 


PERIPIHIRAI.S 
[GRAPHICS TABLET | 


CHALKBOARD POWERPAD $79 
(C64 & Atari) 

Software Packages 

оа Master 222 2.2 $27 
Leo's Links ... 20527 
Programmers Kit $49 
Ваал аты outer nS, 
KOALAPAD ATARI С64............... $67 


PRINTERS 


NEC 8023А........ $379 
STAR GEMINI 10X. 5287 
ALPHA COM 81. $169 


ALPHA COM 40.....:2.2............ $99 


Cable with AlphaCom ..... .FREE 
BME БАО M heer тете 5267 
Okidata 82A $389 
Okidata 83А . $589 
Transtar 1315 Color . $489 


MODEMS 


Volksrnodem 300 baud 
HesModem...... seti. 
Anchor Mark 7 300 baud. . 
Novation J-Cat 300 baud . 
Commodore 1600 Modem 
Commodore 1650 Auto М.... 


MONITORS 


BMC 12" Low Res Green 
BMC 12" Low Res Amber 
BMC 12" Hi Res Green 

BMC 12" Hi Res Amber 

USI 12" Green Hi-Hi Res . . 
USI 12" Amber Hi-Hi Res . 
USI 14" Composite Color 
Monitor cable w/above 


COMMODORE DISK DRIVES 


Concord Disk Drive $279 
Commodore 1541 ........ 

WICO JOYSTICKS 

WMENBSES cps босана $14 
3 Way Grip Stick ...... 524 


Numeric Keypad C64 Е 
Graphic Printer Interface ............ $69 


Economy Printer Interface . $39 
Commodore 64 5 Slot . $49 
16K Board 5 553 
Cassette Interface . $29 
BLANK DISKETTES 

MAXELL DISKS 

MD1 55 DD Box of Ten......... $27 
MD2 DS DD Box of Ten .............. $40 
VERBATIM 

Valulife 55 DD Box of Ten . ........... $28 
Valulife DS DD Box of Ten ........... $42 


—Suth A Deal 


12629 N. Tatum Blvd. 
Suite 138 
Phoenix, AZ 85032 


CALL TOLL FREE 1-800-431-8697/602-957-3619 
For Customer Service Call: 602-957-3619 


ORDERING & TERMS: Send cashier check, money order, personal/company checks allow 3 weeks bank clearance. VISA/MasterCard accepted. Provide 
phone number with order. SHIPPING: Software add $4 00 for first piece, add $1.00 each additional piece. Hardware add 3% or $10.00 whichever is greater. 
Returns must have authorization number (call 602-968-9128 for authorization number). All retumed merchandise subject fo restocking fee and must come 
with all original packaging. No returns allowed after 30 days from shipping date. Prices are for cash; VISA and MasterCard add 3% Prices subject to change 
without notice. All products subject to availability from manufacturers and/or suppliers. All prices іп US. dollars. We Pay shipping on backorders. 


ATTENTION ALL 
COMMODORE 64, VIC 20, 
and PET OWNERS! 


A complete self-tutoring BASIC programming course 
is now available. This course starts with turning 
your computer on, to programming just about 
anything you want! This course is currently used in 
both High School and Adult Evening Education 
classes and has also formed the basis of teacher 
literacy programs. Written by a teacher, who after 
having taught the course several times, has put 
together one of the finest programming courses 
available today. This complete 13 lesson course of 
over 220 pages is now available for the COM- 
MODORE 64, VIC 20, and PET computers and 
takes you step by step through a discovery approach 
to programming and you can do it all in your leisure 
time! The lessons are filled with examples and easy 
to understand explanations as many 
programs for you to make up. At the end of each 
lesson is a test of the information presented. Fur- 
thermore, ALL answers are supplied to all the 
questions and programs, including the answers to 
the tests. Follow this course step by step, lesson by 
lesson, and turn yourself into a real programmer! 
You won't be disappointed! 

We will send this COMPLETE course to you at once 
for just $19.95 plus $2.00 for shipping and handling 
(U.S. residents, please pay in U.S. funds). If you do 
not live in the U.S. or Canada, please add $5.00 for 
shipping and handling (and pay in U.S. funds). If 
you are not COMPLETELY satisfied, then simply 
return the course within 10 days of receipt for a 
FULL refund. 


well as 


Fill in the coupon or send a facsimile. 
906000090000000000000000000000000000000 


NAME: 


ADDRESS: 


CITY: 


PROV ./STATE: 


POSTAL/ZIP CODE: 


COMMODORE 64 O 
VIC o PET O 


CHECK DESIRED COURSE: 


Send Cheque or Money Order to: 

Brantford Educational Services 

68 Winding Way, Complete course: 

Brantford, Ontario, Postage and hand: $2.00 

Canada, N3R 858 Total: $21.95 
0000000000000000000000000000000000000000 
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$19.95 


ееееееееееееееееееееееееееееее 
€000000000000000000000000000000 


When you RUN this program you should see 
all 20 letters on the screen. It works. 

There are a couple of things you should be 
aware of when you use this new command. First, 
you cannot use the А command to open a file for 
the first time. The file must already exist—you 
have to use OPENIT,8,8"filename,S,W"' before 
appending. If you want to, you can create an 
empty file with a CLOSE] immediately after the 
OPEN statement. You can then use the A com- 
mand within your BASIC program. 

Second, if you use alot of appends, disk space 
can be used up more quickly than normal, due to 
a quirk in the append command. Think about the 
file created by the two programs above. It is short 
(containing only 20 characters) and should use 
only one block on the disk. But if you call up the 
directory (LOAD"$",8 followed by LIST), you 
will notice that ALPHABET uses two blocks. This 
is because the A command puts the new data at 
the beginning of a brand new block. Even if you 
append only one item, it will use up a whole block. 
If you append often, you may start to lose free 
disk space. 

The answer to the second problem is to read 
in the whole file, scratch the old sequential file, 
and write a new one, a process we originally 
wanted to avoid. But at least you won't have to 
do it every time you append. @ 


VIC SOFTWARE 64 


More Games, Challenging Problems 
and Programs Than You Can 
Shake A Joystick At! 


FREE PROGRAMS 
Write for Details. 


/ComputerMat «Р.О. Box 1664G •1 аке Havasu City, Arizona 86403 


CodePro-64 (c) 1983, SMA 


Overview 
0 — Using CodePro-64 
1 — CBM-64 Keyboard Review 


BASIC Tutorial | 
2 — Introduction to BASIC 
3 — BASIC Commands 
4 — BASIC Statements 
5 — BASIC Functions 


Graphics & Music 
6 — Keyboard GRAPHICS 
7 — Introduction to SPRITES 
8 — SPRITE Generator 
9 — SPRITE Demonstrator 
A — Introduction to MUSIC 
B — MUSIC Generator 
C — MUSIC Demonstrator 


Other Options 
K — Keyword Inquiry 
R — Run Sample Programs 


Select Choice or hit 17 for Default 


Now you can learn to code in BASIC and 
develop advanced programming skills with 
graphics, sprites and music—visually. You 
learn by interacting with CodePro-64, a new 
concept in interactive visual learning. 

SEE PROGRAM EXECUTION 

Imagine actually seeing BASIC state- 
ments execute. CodePro-64 guides you 
through structured examples of BASIC pro- 
gram segments. You enter the requested data 
orlet CodePro-64 do the typing for you. (It 
will not let you make a mistake.) 

You step through and actually see the 
execution of sample program statements by 
simply pressing the space bar. CodePro-64 
does the rest. You see statements with cor- 
responding graphics and variable value 
displays. 

EXTENSIVETUTORIAL 

CodePro-64's extensive tutorial guides 
you through each BASIC command, pro- 
gram statement, and function. You get clear 
explanations. Where appropriate, you invoke 
BasicView to see examples execute and 
watch their flow charts and variables change. 

By seeing graphic displays of program seg- 
ment execution you learn by visual example. 
You learn faster and grasp programming 
concepts easier with CodePro-64 because 


you immediately see the results of your input. 


You control your learning. You can go 
through the tutorial sequentially, or retum to 
the main menu and select different topics, or 
use keywordsto select language elements to 
study. You can page back and forth between 
screens within a topic at the touch of a func- 
tion key. 

Once you have practiced and mastered the 
BASIC language elements you move on to 


CURRENT VALUES 
; 
г 

PRESS SPACE GAN TO DEMONSTRATE EXECUTION 


F1 MAIN F3 CURRENT F5 NEXT Fo юв 


Main Menu 


more advanced concepts. You learn about 
sprite and music programming. 

SPRITE GENERATOR 

& DEMONSTRATOR 

CodePro-64’s sprite generator lets you 
define your own sprites on the screen. You 
learn how to define sprites and what data 
values correspond to your sprite definitions. 
(You can then save your sprite data toa 
diskette file for use in your own programs.) 
You can easily experiment with different 
definitions and make changes to imme- 
diately see the effects. 

Wealso help you learn to program with 
sprites by giving you a sprite demonstrator so 
you can see the effect of changing register 
values. You can experiment by moving your 
sprite around in a screen segment, change its 
color and see the effects of your changes. You 
learn by visual examples. 

MUSIC GENERATOR 
& DEMONSTRATOR 

Our Music Generator and Music Demon- 
strator will provide hours of instruction and 
creative enjoyment. From the beginning of 
your instruction you can compose simple 
tuneson the screen using the generator. 
Once you've completed a composition you 
сап save the tune and its associated SID 
parameters to a diskette file. Our music sam- 


OUR GUARANTEE 


We guarantee your satisfaction. You 
must be satisfied with CodePro-64 for 
the Commodore-64. Try it for 10 days 
and if for any reason you are not satisfied 
retum it to us (undamaged) fora full 
refund. No risk. 


 CODEPRO-64 


NOTE. OCTAVE 
" to 


таал 
255255255 
S10 00 20 
% ROW 21 COL 24 DATA X RETURN Relresh 
томын I3-Corrent IS-Nert CLEAR HOME 


FV-MAIN F3- CURRENT FS-NEXT 


SYSTEMS 
MANAGEMENT 
ASSOCIATES 


MUSIC GENERATOR 


NOTE NUMBER... MAX NOTE. 


MOVE NOTE UP OR DOWN. LEFT OR RIGHT WITH. 
‘CURSOR KEYS, THEN HIT RETURN 


PRESS SPACE BAR TO PLAY НОТЕ 


DURATION. 
tor’ 


F2-PLAY & SHOW MUSIC. F&-PLAY ONLY 


А new concept 
in interactive visual 
learning. 


CodePro-64 


ple program can be used alone or incorpo- 
rated into your own programs to read the 
saved music file and replay your songs. 

Our music demonstrator lets you experi- 
mentwith various combinations of music 
programming parameters and hear the 
results. All you do is enter rows of SID 
parameters on the screen to create a particu- 
lar sound. Then you hear each sound by 
playing the “keyboard organ" in real time as 
you shift from row to row of SID parameters. 
By seeing your input and hearing the result 
you quickly learn how to create new musical 
sounds and special sound effects. 

Whether you're a beginning programmer 
oran experienced professional, CodePro-64 
will help you improve you Commodore 64 
programming skills. We're sure because 
CodePro-64 was developed by a team of two 
professionals with over 25 years of software 
development experience. 

CodePro-64 is a professional quality edu- 
cational program for the serious student of 
personal computing. And it's fully guaran- 
teed. Order yours today. 

HOW TO ORDER 

Order your copy of CodePro-64 today by 
mail or phone. Send only $59.95 plus $3.00 
shipping and handling to: 

SYSTEMS MANAGEMENT ASSOCIATES 
3700 Computer Drive, Dept. С-1 
Raleigh, N.C. 27609 

Available on diskette only. MasterCard/- 
VISA accepted. For faster service on credit 
card orders, call toll free 1-800 SMA-RUSH. 
(1-800-762-7874). Dealer inquiries invited. 


Commodore 64 is a trademark of Commodore Business 
Machines, Inc. 


CodePr0-64 MUSIC Demonstrator cos 
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ViCreations 


Dan Carmichael, Assistant Editor 


Software For The VIC 


In this month's column, we'll look at some 
new games and educational programs for the 
VIC-20. 


Commercial software for the VIC-20 has decreased 
as of late. That is not to say that the popularity of 
the VIC has also lessened. Nor does it indicate 
that support for the VIC is waning. With the in- 
troduction of the Commodore 64 and other com- 
puters, a greater area is being covered by software 
companies. However, there are still many good 
games, educational programs, and applications 
being offered for the VIC. We'll look at a few of 
the better ones here. 


Educational Programs 


Type Attack, from Sirius Software, is a novel typing 
tutor program. Usable by all ages, it teaches letter 
recognition and keyboard familiarity. Because the 
typing speeds can be set from 1 to 99 words per 
minute, Туре Attack can help improve the tech- 
niques of novice and expert typists alike. 

The program contains three lesson options: 
Character Attack, Word Attack, and Lesson 
Maker. Character Attack teaches character recog- 
nition, Word Attack teaches word recognition, 
and the last option allows you to set up your own 
lessons. 

Type Attack offers more than many other typ- 
ing tutors in that it plays like a game. You learn 
and have fun at the same time. Based on a Space 
Invaders theme, the letters and words drop from 
the sky. The player blasts them (and defends the 
earth) by pressing the appropriate key or keys. 
The action can become so fast and furious that 
even the youngest child's attention can be held. If 
your software needs include a typing tutor, I 
strongly recommend this one. 

Kindercomp, from Human Engineered Soft- 
ware, is a collection of learning games for children 
ages 3 to 8. Four of the games are Names, Se- 
quence, Letters, Match. 

‘Names allows you to type in the child’s name, 
which is then displayed on the screen a number 
of different ways. 

Sequence presents a line of numbers in se- 
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The Match option from Kindercomp. 


quential order followed by a question mark. The 
child is then asked to supply the next number in 
the sequence. A right answer is rewarded with a 
smiling face, and three correct answers in a row 
produce a colorful screen display with sound. 

Letters displays a single letter on the screen, 
then asks the child to type the same letter on the 
keyboard. Right answers are rewarded with colors 
and sounds. 

Match familiarizes the child with shapes and 
patterns. A pattern of three shapes appears in a 
box. The child is then asked to identify the pattern 
by matching it with one of three choices. 

All of the games feature good color and sound 
to hold the child's attention. 


А Full-Featured Word 
Processor 


Write Now!, from Cardco, is a word processor for 
the unexpanded VIC. It contains many of the op- 
tions you'd expect to find in word processors de- 
signed for computers more powerful than the VIC. 
The program is on cartridge, so there's no 
handling of fragile diskettes, or lengthy tape cas- 
sette loads. Other advanced features include: 


ө Multiple line headers and footers. 
€ Ability to save text to tape or disk. 


Skyblazer offers good graphics and fast action. 


ө Options for sending special printer codes. 


ө The ability to recall frequently used passages 
and insert them into your text. 


€ Text scrolling up or down. 
ө Easy insert and delete modes. 


€ Block commands including copy, move, 
and delete. 


€ Global search, which allows you to find 
and replace any string. 


ө Optional page numbering at the top or bot- 
tom of the page. 


€ Instruction booklet and a 30-minute audio 

cassette instruction course. 

АП you need is a disk drive or cassette (if you 
wish to save the text). 


Games 


There seems to be no shortage of games on the 
market for the VIC. Some of them bear no men- 
tion. However, there are many that play well and 
offer hours of challenging fun. Here are a few of 
them: 

Skyblazer is a "defender" type of game. It 
offers smooth horizontal scrolling plus good 
graphics. And there's plenty of action. 

The object of the game is to successfully com- 
plete the five missions, or game levels. The first 
level puts you on a bombing run to destroy enemy 
radar. Once this is destroyed, your next missions 
include attacking the enemy tank and ICBM 
defenses. After you've destroyed the primary 
defenses, the final challenge is to destroy the 
enemy headquarters. And that is not easy. 

Skyblazer contains good graphics and sound. 
Also included are options to pause the game, or 
adjust the positioning of the screen display. Avail- 
able on cartridge, all that is needed is your VIC 
and a joystick. 


An arcade classic for the VIC, Donkey Kong. 


Donkey Kong, from Atarisoft, is a relatively 
accurate version of the arcade classic. The object 
of the game is to guide Mario through the steel 
girders and rescue his girlfriend from the clutches 
of a gigantic gorilla. 

The game offers four different levels of play. 
While climbing upward, you must avoid the roll- 
ing barrels, firefoxes, mad springs, and cement 
piles. Grabbing the magic hammer allows you to 
smash the rolling barrels. 

The game is challenging, and the colors, 
sound, and smooth graphic animation make it a 
fun game for the VIC. Donkey Kong is available on 
cartridge and requires a joystick. 

Lazer Zone is a fast-paced shoot- em-up game. 
The object is to fend off the attacking Warfiends 
of Zzyzax. You're armed with two rapidly firing 
cannons. The cannons are located at the bottom 
and the side of the screen and each moves and 
fires independently. Maneuver each cannon to 
shoot and destroy the invading Zzyzaxians. 

Although the game is simple in theory, it's 
fun to play. The action is nonstop, and the sound 
effects are very good. 

Lazer Zone is available on cartridge. 

Capture the Flag, from Sirius Software, is a 
unique game in which you maneuver through a 
maze to capture your opponent's flag. But this is 
not the usual maze game. Instead of viewing the 
field of play from the top, you see it from ground 
level. This produces an interesting 3-D effect 
as you work your way through a maze of walls 
towering over your head. 

Game options include a pause control and a 
feature which allows you to toggle the labyrinth 
maps on or off. You can also choose to play defense 
(protect) or offense (capture). You may also choose 
your opponent—a friend or the computer. 

Although the 3-D screen display and the game 
action make this one of the best games I’ve seen 
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on the VIC, it does have one inconvenience. 
Dreary music plays throughout the game, and 
the instruction manual offers no way to switch it 
off. The music gets monotonous after a while, but 
you can always turn your volume down. 

Capture the Flag is on cartridge and requires a 
joystick. 

Type Attack and Capture the Flag 

Sirius Software 

10364 Rockingham Dr. 

Sacramento, CA 95827 

(916) 366-1195 

$39.95 each 

Kindercomp and Lazer Zone 

Human Engineered Software 

150 North Hill 

Brisbane, CA 94005 

(415) 468-4111 

Kindercomp— $34.95 

Lazer Zone—$29.95 

Write Now! 

Cardco Incorporated 

313 Mathewson Ave. 

Wichita, KS 67214 

(316) 267-6525 

$39.95 

Skyblazer 

Bróderbund Software 

Entertainment Software Division 

17 Paul Drive 


GET MORE FROM 


YOUR COMMODORE 


Whether you swear by the VIC-209 or the 
Commodore 64, your Commodore computer 
can give you even more—regardless of your age 
or level of programming ability—with Wiley 
Press paperbacks. 


WINNING GAMES FOR THE 

COMMODORE 64 

Terry P. Barrett & Stephen Colwill 

Featuring an unusual combination of teaching and game 
playing, this guide gives tips and examples for each of the 
games presented—including a routine that speeds up the 


action to higher levels of challenge. Over twenty high-level 
arcade-type games are included, with complete analyses of 
how each works. 

(0 471 80725-7) approx. 144 рр. $12.95 


WINNING GAMES ON THE VIC-209 
Terry P. Barrett & Antonia J. Jones 


Test your reflexes and sharpen your hand/eye skills with 
the book that lets you test all the color, araphics, and 
sound capabilities of your VIC-20. The twenty games in 
this book include sixteen arcade-style games, two versions 
of chess, and Anagram and VICmath for astute problem- 
solvers. For each game there's a complete program listing 
plus helpful notes on the special techniques used in writing 
it—and winning it. 

(0 471 80601-3) 

approx. 140 pp. 

$12.95 
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An excellent 3-D effect in Capture The Flag. 


San Rafael, CA 94901 
(415) 479-1170 
$34.95 


Donkey Kong 
Atarisoft 

1265 Borregas Ave. 
P.O. Box 427 
Sunnyvale, CA 94086 
(408) 745-2000 
$44.95 


MASTERING THE COMMODORE 64 

А:Ј. Jones & G. Carpenter 

Following a description-and-example format, with each 
BASIC command or concept illustrated by a brief pro- 
gram, this guide covers PRINT formatting, string handling, 
machine code programming, and how to use a machine 
code monitor, as well as the lighter side of owning a 
Commodore 64: sound, graphics, and moving graphics 
capebilities. 

Book (0 471 80755-9) approx.256 pp. $14.95 

Book with program disk (0 471 80751-6) $39.90 


And for getting down to business with a minimum of fuss. . . 


BASIC SUBROUTINES FOR 

COMMODORE COMPUTERS 

Eddie Adamis 

More than 300 BASIC subroutines for the PET®, VIC-20®, 


or Commodore 64— tested and ready-to-run. 
(0 471 86541-9) 320 pp. $12.95 


PET? and VIC-209 are registered trademarks of 
Commodore International. 


WILEY PRESS 

a division of John Wiley & Sons, Inc. 

605 Third Avenue, New York, N.Y. 10158 
In Canada: 22 Worcester Road, 


Rexdale, Ontario M9W 1L1 
Prices subject to change and higher in Canada 


( Unlocking the power of computing ) 


Scroll 64 


Peter Marcotty 


A window can make a static screen more dy- 
namic. This short machine language routine 
gives you control over screen scrolling from 

within BASIC programs. 


Someone spots a tornado and reports it to the 
local weather bureau. Your television beeps and a 
warning moves across the bottom of the screen. 

How would you create that effect on your 64? 
How do you make words scroll sideways? 


Scroll Control And Windows 


When you LIST a program, the screen fills quickly. 
As new lines appear, the screen scrolls from bot- 
tom to top (everything moves up a notch). 

But there may be times when you want move- 
ment from top to bottom, or right to left. Or 
perhaps you want some information to stay in 
one section of the screen while everything else 
moves. 

You need a screen window. Things in the 
window move, while everything else stays put. 
Some new computers, such as the Apple Macin- 
tosh, have built-in windowing. 

“Scroll 64" won't turn your 64 into a Macin- 
tosh, but it can make your screen displays more 
dynamic. 


Asteroid Belts And Invoices 


There are many ways to creatively use screen 
windows and scrolling. For example, scrolling is 
common in certain types of video games. You 
drive a car on a road that moves toward you. Or 
your spaceship at the bottom of the screen has to 
shoot at descending asteroids. In addition to the 
action window, there is usually a section with 
information about your current score, remaining 


fuel, velocity, and so on. It would be confusing if 
your score moved with the asteroids, so the action 
of the game is put in a window. Your score goes 
somewhere outside the window. 

Business programs can benefit from win- 
dows, as well. You might want a command line 
in an invoicing program, to remind the user of 
the various options. The window would cover all 
of the screen except the last line, which says 
“F1 = Help ЕЗ = New F5 = Help F7 = Continue." 
Everything scrolls on the screen except the line at 
the bottom. Another possibility is a product list 
window in the corner of the screen. When the 
user of the invoice program wants to look up a 
product number, the window opens up and the 
list scrolls by. 


Customizing Your Programs 
Scroll 64 is a machine language program which 
goes into memory locations 49152-49528 ($C000— 
$C172). It does not use any BASIC RAM. The 
BASIC loader program reads the DATA state- 
ments and POKEs the numbers into memory. 
When the ML program is safe in memory, type 
NEW to get rid of the loader and clear RAM. 

To use it, LOAD and RUN Scroll 64, type 
NEW, and then LOAD your own program. To 
activate it, simply SYS 49152. It scrolls once and 
returns to BASIC. 

Or, if you prefer, you could build the BASIC 
loader into your program. Renumber the lines 
(starting at 60000, for instance), add a RETURN, 
and call it with a GOSUB at the beginning of your 
program. 

Scroll 64 moves a certain section of the screen 
in a certain direction, along with the correspond- 
ing color memory. These memory addresses con- 
tain the pertinent information: 
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LOCATION FUNCTION 


49522 Direction 

49523 Left Boundary 
49524 Right Boundary 
49525 Top Boundary 
49526 Bottom Boundary 
49527 Horizontal Wrap 
49528 Vertical Wrap 


Direction is the way in which the screen 
scrolls. To change it, POKE 49522 with one, two, 
three, or four (for left, right, up, or down respec- 
tively). The boundary values define the size of 
the window. Left and right boundaries can range 
from 0 to 39. Top and bottom must be between 0 
and 24. When the program is first run, a five by 
five window goes in the top left corner. 

The wrap values determine what happens to 
characters when they reach the edge of the win- 
dow. You can make them disappear or wrap 
around to the beginning. POKE 49527 and 49528 
as follows: 


Number Effect 


0 Don't wrap around, leave a trail 
1 Wrap around 
2 Don't wrap around, erase trail 


To activate the scroll window, SYS 49152. 
You can SYS over and over, changing the direc- 
tion, boundaries, and wrap values as you wish. 
Note that when the ML routine is activated, what- 
ever is in the window scrolls, but at all other times, 
the screen acts as it normally does. 


Special Loading Instructions 
Enter the program and SAVE it before you test 
anything. To put the ML into memory, type 


RUN 60 


The computer will take a few moments to 
complete the POKEs. As added insurance, there 
is a checksum routine built in. Type RUN and the 
values in memory are checked. If an error message 
appears, check the DATA statements. Block 1 
includes lines 5010—5050, block 2 includes lines 
5060—5100, and so on. If you find a mistake, fix it 
and type RUN 60 followed by RUN. Remember to 
SAVE the final, debugged version. 

There is one thing to watch out for. If you 
decide to use a single line for your window, you 
can scroll left or right, but don't try to move up or 
down. For example, if you set the top boundary 
to five and the bottom to five, you can scroll line 
five to the left or to the right. But try to scroll up 
and the computer crashes. And you cannot escape 
the crash with RUN/STOP-RESTORE. You have 
to turn your computer off and then on again (and 
lose whatever you have in memory). 


Smoother Scrolling 
Regular scrolls move whole characters. It's like 
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picking up a letter and dropping it down one line. 

The 64 can do smoother scrolls, moving char- 
acters a pixel at a time. The key is memory loca- 
tions 53270 (horizontal) and 53265 (vertical). To 
do smooth scrolls, use these formulas: 

POKE 53270, (PEEK(53270) AND248) + X 

POKE 53265, (PEEK(53265) AND248) + Y 

X and Y can be any numbers from 0 to 7. Once 
you've gone to 7 or 0, you'll have to do a regular 
Scroll and reset the smooth scroll to the other limit. 
Smooth scrolling can make an action game look 
more realistic—the characters don't jump around, 
they slide. 

A minor annoyance in this method is that 
while the screen is doing a smooth scroll, you 
may see small gaps at the edges. You can get 
around this by turning off bit 3 of these two regis- 
ters; in the POKEs above, AND with 240 instead 
of 248. In effect, you pull the border in a notch, 
resulting in a 38 column by 24 row display (instead 
of 40 x 25). 

Because smooth scrolling affects the whole 
screen, itis not compatible with Scroll 64 windows. 
If you combined the two, you would see smooth 
scrolling inside the window and jittery, vibrating 
characters outside the window. To fix this would 
require a high-res screen, customized word 
sprites, or a raster interrupt wedge. 

See program listings on page 176. @ 


COPY 64 


DISK DUPLICATION SYSTEM 
FOR COMMODORE 64 


e Analyze disk tracks for data & errors 
e Skip empty tracks to speed copying 
е Copy everything incl. DOS flag & false ID 
e Put errors on copy as required 

e Fast, reliable copying with 1 or 2 drives 


$39.95 plus $3 shipping. Mastercard and Visa 
98% OF SOFTWARE CAN BE ULTRACOPY'ED 


C-64 ULTRA RESET SWITCH 
e Built into new 6 foot disk drive cable 
e Nothing to solder - no connections 
e Eliminate voltage spikes & switch wear 
$16.95 plus $3 shipping. Mastercard and Visa 


ULTRABYTE Call (313) 562 - 9855 


23400 Michigan, Suite 502, Dearborn, MI 48124 
Satisfaction guaranteed, 10 day return privilege 
DEALER INQUIRES INVITED 


Three goodreasonstotry 
core diskettes, 


um 


ЖО 
ШАШ 


Litsaves you 
money. 


Encore diskettes meet the same high stan- 
dards as the more expensive brands. In fact, 
Encore actually exceeds system 
requirements. 

Yet you can buy Encore disks for Ys the 
price of the high-priced diskettes. (only 
$1.59 for single-sided, single-density 574” 
diskettes, when you purchase 4 or more 
boxes, ten diskettes to a box.) 


Adiskette intended fora 
wide range of uses. 


Whether you use alot of diskettes or only a 
few, you need something more than guar- 
anteed accuracy and reliability. You need 
economy. 

Encore was designed to meet the de- 
mand for a reliable, low-cost diskette. 

At Encore's low price, it's ideal for memos, 
rough drafts, spreadsheets, reports, even 
scratchpad-type uses. 


Designed for all major 
personal computers. 


Фсорс: Radio’ 
commodore /һаек 


Encore was specifically designed to provide 
optimum performance and reliability on the 
four leading computer systems. Inmac's Quality 
Assurance Department constantly monitors all 
Encore diskettes to ensure they meet or exceed 
the media specifications for these systems. 

Our on-going testing program guarantees 
that the Encore diskette you buy tomorrow will 
be as good as the one you buy today. 


2. Its absolutely 
reliable. 


Encore is guaranteed for one full year, or 
Inmac will replace it, free. 

Inmac's Quality Assurance Department 
requires that Encore meet the media spe- 
cifications for the most popular systems - 
Apple, Commodore, IBM, and Radio Shack 
- exactly. So you can rely on Encore disk- 
ettes in your system. They won'tlose infor- 
mation or cause read/write errors. 


45-day money-back trial. 


We're backing our Encore diskettes with a 
45-day money backtrial because were pos- 
itive you'll be delighted with Encore's quality 
and performance. 

And were sure that once you try Encore, 
you'll agree that it's the most reliable econ- 
omy floppy available. 

If you don't agree for any reason, just 
return the three diskettes for a full refund. 


® signifies manufacturer's registered trademark. 


9. And you can 
getoile, free. 


For a limited time only, мете offering a spe- 
cial trial pack of three 574” Encore diskettes. 
You pay the regular price for two of the disk- 
ettes, but the third one is free. 

We'll send you 3 single-sided, single- 
density 5/4” diskettes for only $5.19. 
(Single-sided, double-density for $5.99. 
Double-sided, double-density for $8.79.) 
Use all three Encore diskettes for 45 days. 

Then, if you're not completely satisfied, 
return the three diskettes for a full refund. 


Here’s how it works. 


Simply mail the attached postage-paid 
card, or phone our toll-free number, 


1800:538:8157 


extension 987. In California, 1-800-672- 
3470, extension 987. 

For this special offer, please include 
payment with your order. You may send a 
check, money order, or bill it to your Master- 
cardor Visa account. Company PO's ac- 
cepted with verification. 

Offer is limited to one trial pack per cus- 
tomer. Good only in U.S. Customer must be 
18 years or older to order. 


Offer expires September 30, 1984. 


Remember to ask for your free Inmac 
catalog. It contains over 2,500 computer 
supplies and accessories, many not avail- 
able anywhere except through the Inmac 
catalog or special offers like this one. 


imma 


2465 Augustine Dr., Santa Clara,CA 95051 


Tape Data Files 
For VIC And 64 


Brian Prescott 


Storing information on tape files can free up 
memory for BASIC. The sample programs 
presented here show how to set up, write to, 
and read from tape files. 

[sl 


Beginning programmers often balk at writing and 
reading files to the Datassette. But some serious 
applications require the use of the same data in 
more than one program, or several sets of data 
with the same program. These situations call for 
data files. 

Here's a trio of simple programs that create 
data files, read them back, and display the con- 
tents. Not only will they help you grasp the tech- 
niques, but you can also use them to create files 
for your programs, or incorporate them into your 
own programs. 

The first two programs create data files. Pro- 
gram 3 reads the files and prints the contents to 
the screen. 

Program 1 prompts you for each item. It then 
writes the items onto a tape file. This method is 
convenient, but if an incorrect entry is typed in 
and stored on tape, the only way to correct it is to 
create a new file, which means entering all the 
data again. 

Program 2 solves this problem, but is perhaps 
less convenient. To use it, LOAD the program 
and add DATA statements at lines 540-570. 
Running the program creates the files. 


Creating A File 


The programs are fairly straightforward, but a 
few comments are in order. The first program 
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asks you for the number of items to be in the file, 
then DIMensions a string array to hold them. The 
filename is then requested. It's best to use a name 
that identifies the file. Using +1 аз the filename 
ends the program. After the array is filled and the 
file written to tape, the program displays the con- 
tents on the screen. You could modify the program 
to allow display and possible editing before the 
file is created. 

The second program does the same job in a 
slightly different way. The data lines must be 
organized properly to avoid problems. The first 
data item will be read as the filename, so be sure 
the filename is the first item entered. To signal 
the end of a file, use -1. This is included at the 
end of the DATA statements. You can create sev- 
eral files at one time, as you can see from the data 
included. To signal the end of data, use + 1—this 
stops the program. 

To see what's on the files, RUN Program 3. 
You can ask for any file, but be sure to rewind the 
tape to some point before the file you want. 


Opening, Filling, And 

Closing Files 

A tape file is like a desk drawer. First you open it, 
put something in or take something out, and then 
close it. 

In the first two programs you will see the 
statement OPEN 1,1,1, "filename". The three 
numbers following OPEN serve three different 
purposes. First is the file number. You can pick 
any number from 1 to 127, but 1 is most commonly 
used. The second is the device number. Tape 


PROSSS 


The Professional Systems People And 


мев [0] WIO[RIX 


Present Products From 


— commodore 


The Software That Makes Them Work! 
CBM PRODUCTS 


8032 Computer $ 619.00 C-64 Computer $219.00 
8050 Disk Drive 979.00 1541 Disk Drive 249.00 
8250 Disk Drive 1279.00 1702 Monitor 249.00 


9060 Hard Disk 1979.00 1526 Printer 339.00 
8023 Printer 529.00 1600 Modem 69.00 


6400 Printer 1399.00 MSD Dual Disk Drive 649.00 
MSD Single Drive 349.00 
PERSYS 64 
For the ‘checkbook hacker or the 
double-entry, ‘serious-stuff’ 


SOFTWARE accounting buff. Disk: $79.00 


SBSYS 8032, 8096 & B-Series СРО?” 


THE SMALL BUSINESS SYSTEM PROSSS 

Available for twin 8250 systems. È 

GL, AP, AR, INV & payroll modules all PROS YIS (C-64, 4000, 8000 & B-Series) 
communicate. Custom installation The affordable, professional modular 
recommended. accounting system for business. 


Clear instructions that assume no prior 
LEGiSYs knowledge. Computer assigned debits & 
8032, 8096 & B-Series CPU's credits...too many reports to list. 
The total legal office information, Turns CBM's into veritable giants! 
accounting and tickler system. Available PROSSS 
for 8250 & twin 8250 systems. Custom 2 
S Ns PUR = General Ledger as low as $199 


installati ded. 
MS A e AR, AP, INV & Payroll as low as $129ea. 


Call Toll-Free by dialing: Send $1 for catalog, refundable on first order. 

OwieTeas1.800-221-WORX тне Ridge cul us gba Co 
ide Texas: xe VIS sterC. kay. 

(паса ан 1-800-692-4265, wait for [Serie Master Ky 

beep, then dial 008-3378, wait for tone and dial 993, (Mj ПСЕ] 0, Мо І RI Х| 


if no answer, dial 806/797-2623. 4210 D 50th St. Lubbock, TX 79413 


drives are always device number 1 (usually the 
screen is device 3, a printer is device 4, and a disk 
drive is device 8). The final number is the secon- 
dary address. A 1 here means “write to the file." 
Thus, OPEN 1,1,1 tells the computer to open file 
number 1 on the cassette drive for writing. 

Once a file is opened, you can print to it. In 
the first two programs, you will see PRINT, data. 
PRINT works like PRINT, except that if you use 
keyword abbreviations, a question mark (?) won't 
work. Use P-shift-R instead, followed by the file 
number. And you have to put a comma between 
the file number and the data you are writing. After 
you finish writing the file, CLOSE it. 

Opening a file for reading is similar, except 
that the secondary address is zero. After the file is 
open, you can INPUT or GET from it. You can 
read and write any type of data—floating point 
numbers, integers, or strings. 

Since the size of a data file can vary, it is ad- 
visable to indicate how long the file is, or where it 
ends. One method is to PRINT# the numbef of 
records as the first item in the file. This is best 
when you are setting up arrays. The computer 
reads the first number in the file, then DIMensions 
the array. Another way to mark the length of a 
file is to make up an end-of-file marker. In the 
sample programs, “-1” acts as the marker. 


Tape Files On A Disk Drive? 


Knowing the basics of tape files is helpful if you 
decide to buy a disk drive. There are a variety of 
ways to store information on a disk; one of them 
is very similar to tape files. 

Sequential disk files store information in the 
order it is received (tape files are always sequen- 
tial). To transfer information from tape to disk, 
simply open the tape file for reading, open a se- 
quential disk file for writing, and then input the 
data from tape, print it to the disk, input more, 
print more, and so on until you reach the end of 


the file. 


See program listing on page 176. @ 


C-64 SOFTWARE 
POWER PLUS 


A utility program that adds over 40 
commands to your C-64. Doesn't useany 
BASIC memory. 100% machine language 


FEATURES: 


AT LOW PRICES 
QUICKWRITER II 


A full-featured word processor at a 
fraction of the cost. More powerful than 
all w/p under $50.00. Has features even 
$100.00 w/p don't have. 


FEATURES 
100% machine code, the fastest w/p 
we've seen 
Works with all printers/interfaces 
Semi-automatic hyphenation 
Justification 
Form letters automatically 
Block Transfer, Delete, Insert, 
Append, 
Auto page numbers, headers and 
footers 
Send disk commands 
PRE-VIEW—see left or right side of 
page before printing 
Full-screen editing with rapid scroll 
Easily send special printer commands 
Excellent manual 


$19.99 


Un-new—get back BASIC programs 
after reset 
Screen Dump—to printer 
Easy, abbreviated Disk Commands 
Machine Language Monitor with 
* Assembler/Disassembler 
e Transfer, Fill, Hunt, etc. 
Adds BASIC commands 
* Change 
e Delete 
* Auto line numbers 
Excellent manual 


$19.99 


Indicate tape or disk. Send check or m.o. 
(include $2.00 p/h) to: Educomp 
2139 Newcastle Ave. е Cardiff, CA 92007 
(619) 942-3838 
SATISFACTION GUARANTEED. 


Paks of 64 Software 


totl.text/totl.speller 
reg. price $129 NOW $99 
(BP-4)—(disk) 


additional (CA residents 
add 6296 sales tax) 


Hawaii and Alaska 415-943-7877 


TOTL SOFTWARE ROLLS OUT ANOTHE 


DataBase Management for the Commodore 64™ 
TOTL.INFOMASTER 3.6--опіу $50 on disk 


Money-Saving Bonus ШЕН ЕШ m m m кш m иш иш пш шир ^A 
INFORMATION AND ORDER COUPON Ze 


ү TAPE — DISK gg 
EUM TOTL.TEXT 2.0(VIC + 8K) ГІ 24.95 O 28.95 
(BP-1)—(disk) TOTLTEXT 2.5 (VIC + 16K) O 34.95 ГІ 38.95 E 
totl.text/ ош ON 18) П 19.95 O 23.95 С 
MEMGR.2.1(VIC+8K) О 29.95 O 33.95 
totl.speller/ ане Зе RESEARCH А557.2.0(УІСж8К) 0 29:95 О 33.95 
reg. price $103 NOW TOTI BUSINESS 30 (VIC s 24K) C] 84.95 Other VIC 20™ 
pa ] .6(С-64 ГІ 39.95 O 43.95 
(BP-2)—(disk) TOT SPELLEH 80-64) O 34.95 апа commodore 64™ software 
totl.business/ TOTL.LABEL 2.6 (C-64) 0 19.95 O 23.95 available from your dealer or 
toti time manager/ TOTLTIME MGR. 2.6 (C-64) O 34.95 ГІ 38.95 directly from TOTL Software: 
t ge RESEARCH ASST. 2.0 (C-64) ГІ 34.95 O 38.95 Word Processing (totl.text) 
totl.infomaster/totl.text TOT MASTERS i Бе E 2545 Spelling Checker (totl.speller) 
8 4 .6(С- - Mailing List & Label (totl.label) 
reg. pri a 
Cu р ү ui NOW $159 BONUS PAK ft Business Accounting (totl.business) 
-3)— (dis Total ime Management 
Ci ,M > 
totl.infomaster/ сою. ЕАО C.O.D. Charges/Sales Tax ___ (totl time manager) 
*C.O.D. orders $2.00 Shipping & Handling - $3.00 Keyword Cross Reference 


Amount Enclosed 


FOR ORDERING ONLY—CALL OUR TOLL FREE NUMBERS 
Continental U.S. 1-800-351-1555, California 1-800-351-1551 


n INNER! 
Дыр) 


е 


(research assistant) 


TOTL Offers You... 
low prices and high quality е 30 day 


money-back guarantee on direct 
RC M 0 SEND MORE INFORMATION (no charge for catalog) BUE usos е e interactive family of 
“Sp Ж Мате software • product registration e 
research assistant Street cüstomer support e free informative 
i х newsletter е regular upgrades at 
reg. price $118 NOW $89 Cty State ap reduced cost • availability in many 
(BP-5)—(tape) Phone( — ) eine sElvisa stores • 800 numbers for ordering 
totl.text/totl.label Card # 5% convenience e prompt shipment of 


reg. price $60 NOW $49 


Commodore 64 and VIC 20 are trademarks of 
Commodore Business Machines Inc. 


п TOTL 


SOFTWARE, INC. INC. 


quality you can afford 
1555 Third Avenue 
Walnut Creek, CA 94596 
415/943-7877 


direct orders • savings coupons with 
each order • money-saving bonus 
paks * two years and 45,000 
products strong 


VIC 5K Emulator 


Glen Reesor 


Some programs written for the unexpanded 
VIC-20 do not run properly when expansion 
memory is installed. Often the only solution 
is to switch off or unplug the expander. You 
can save wear and tear on your memory car- 
tridges by using the technique outlined here, 
which “emulates” the memory layout of an 
unexpanded VIC. 


Have you ever encountered the problem of up- 
grading your computer system in such a way that 
most of your programs need to be modified to 
operate properly? I had such a problem when I 
bought a 16K expander for my VIC-20. 

When the 8K or 16K expander is in place, 
screen memory moves from 7680-8185 to 4096— 
4601, color memory moves from 38400-38905 to 
37888-38393, and the start of BASIC moves from 
4096 to 4608. Because of these changes, programs 
written on a 5K VIC that have POKEs to the screen, 
POKEs to color memory, or high-resolution 
graphics will not operate properly with an 8K or 
16K expander in place. 

Some programs use the formula 5 = 4*(PEEK( 
36866) AND 128) + 64*(PEEK(36869)AND112) to 
locate screen memory. Color memory can be lo- 
cated with the formula C = 37888 + 4*(PEEK( 
36866) AND128). Using these two formulas, some 
programs written on a 5K VIC will work. How- 
ever, depending on the length of the program, 
high-resolution graphics usually will not work. 


Simulating An Unexpanded VIC 


In order to get all of my programs (approximately 
70) to operate with a 16K expander in place, I came 
up with two alternatives—rewrite all of my pro- 
grams, or develop a sequence of commands to 


make my VIC operate like a 5K VIC. Naturally, I 

decided on the second alternative. 

To make my VIC emulate a 5K VIC, I had to 
change screen memory, color memory, the start 
of BASIC, and the end of BASIC. Changing the 
start of BASIC and the end of BASIC was easy; 
changing screen memory and color memory was 
the hard part. 

I remembered an article, ^Alternate Screens" 
(Home and Educational COMPUTING!, Fall 1981), that 
could change screen memory to 7168-7673 and 
the color memory to 37888-38393 (for the 5K VIC). 
The article provided some commands to change 
the screen memory back to 7680-8185 and the 
color memory back to 38400-38905. This is exactly 
where we want the screen and color memory to be. 

Now we are ready to change the VIC with an 
8K or 16K expander into a 5K VIC. 

1. Turn your VIC off and then on. 

2. To change screen and color memory, type 
the following: 

POKE36866, 150: POKE648 , 30: FORJ-217T0228:PO 
KEJ,158:NEXT:FORJ-229T0250:POKEJ, 159 :NE 
xT 

After you press RETURN, the screen will 
become a mess of various characters and colors. If 
you do not see this, you probably typed Step 2 
incorrectly. Go back to Step 1. If you typed the 
line correctly, screen memory is now from 7680- 
8185, and color memory is from 38400-38905 (nor- 
mal for a 5K VIC). 

3. Press RUN/STOP and RESTORE simul- 
taneously to clear the screen and get a cursor. 

4. Now change the start of BASIC and the 
end of BASIC by typing the following: 


POKE44,16:POKE56, 30: POKE4996, 0: CLR: NEW 


The first POKE changes the start of BASIC to 
4096 (16*256). The second POKE changes the end 
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of BASIC to 7680 (30*256). The third POKE puts a 
Oat the start of BASIC. On all Commodore 
machines, there must be a 0 at the start of BASIC 
for a program to run. "CLR:NEW"' clears any 
variables and any garbage that may have been in 
the program area. 


Your VIC will now operate like a 5K VIC. 


Almost all programs written for a 5K VIC will 
now operate properly with an 8K or 16K expander. 
The only exceptions are those few programs which 
manipulate these pointers themselves, or which 
otherwise tinker directly with memory layout. 
Even many machine language programs will 
work. 6) 


NEW 


SAIL TO AMERICA 
A totally new computer experience 

Parents Tell your kids Cadmean's The Voyage of the Mayflower has all the 
color, sound and excitement they love. Challenge the mighty Atlantic, defy its 
roaring storms and bring your passengers safely to the new world. There's 
never been an experience like it. Anywhere. 
Kids Tell your parents The Voyage of the Mayflower is a terrific learning adven- 
ture. Recreate the hazards and drama of the first Pilgrim voyage. Learn about 
sailing strategy, weather, navigation and history. The more you know the more 
fun it is. Every level is a unique experience whether you're*6 or 60. 
Unforgettable. 
Families Pit your imagination against the world as the Pilgrims knew it. Share 
the exciting journey to a new life in a new land. Risk the danger and learn 
together how the Mayflower sailed into history on the courage of those few who 
dared. 

All this and a FREE 11 x 16 Poster for only $29. 

School and dealer inquiries welcomed 
DISK ONLY 


ORDER NOW. FREE shipping for MasterCard and Visa orders. Call (313) 
994-0845 Day or Night. C.O.D., checks, money orders add $3.00 shipping. 


CADMEAN CORP., 309 Koch, Ann Arbor, MI 48103 


C-64 


Program Your Own EPROMS 


p VIC 20 Dr 
>c $99.50 menade 
PLUGS INTO USER PORT. EA | 
NOTHING ELSE NEEDED. om 


EASY TO USE. VERSATILE. 


ө Read or Program. One byte or 

32K bytes! 

OR Use like a disk drive. LOAD, 
SAVE, GET, INPUT, PRINT, CMD, 
OPEN, CLOSE—EPROM FILES! 

Our software lets you use familiar BASIC commands to 
create, modify, scratch files on readily available EPROM 
chips. Adds anew dimension to your computing capability. 


promenade~ 


Works with most ML Monitors too. 

* Make Auto-Start Cartridges of your programs. 

ө The promenade" C1 gives you 4 programming voltages, 
2 EPROM supply voltages, 3 intelligent programming 
algorithms, 15 bit chip addressing, 3 LED's and NO 
Switches. Your computer controls everything from software! 

ө Textool socket. Anti-static aluminum housing. 


€ EPROMS, cartridge PC boards, etc. at extra charge. 

€ Some EPROM types you can use with the promenade" 
2758 2532 462732Р 27128 5133 X2816A' 
2516 2732 2564 27256 5143. 52813 
2716 27С32 2764 68764 2815" 48016P' 
27C16 2732A 27C64 68766 2816* 


> "Commodore Business Machines 


"Denotes electrically eraseabl types 


Call Toll Free: 800-421-7731 
In California: 800-421-7748 


JASON-RANHEIM 


580 Parrott St., San Jose, CA 95112 


POSER 


P.O. Box 3354 Cherry Hill, N.J. 08034 


Toll FREE (800) 992-3300 
For Information Call (609)596-1944 


Call us for reliable service, experience and affordable prices! 
FLOPPY DISK 


Elephant 55/00 (10).............#19.50 
Elephant SS/SD (10) 317.50 
Verbatim SS/DD (10) *Call 
WORD PROCESSING 

Paper Clip . “69 
Easy Script.. *45 
Word Pro 64 *58 
EZ Spell "19 


PROGRAMMING SERIES 
Assembler 64 


Simon Basic ... 
Screen Edito: 
CPM 2^... 


Nevado Cobol 
ACCOUNTING 
Home Accountant 
Tax Advantage.. 
General Ledger.. 
A/R, A/P, Payroll 
DATA BASES 
Code Writer ..................... 


ingle drive 
Сөтле». Tu — 


1541 
Disk Drive *Call 


1520 Color Plotter .*165 
MPS 801 Printer... .*219 


Special of the Month 
1526 PRINTER 
3279 


Special of the Month 


DELPHI ORACLE 


1530 Datasette................. 
1650 Auto Modem... 
1110 8K Memory Exp 
1111 16K Memory Exp. 
1011 RS 232 

Terminal Interface.. 
1211 Super Expander... 
1212 Prog. Aid Cartridge... 
1213 Mach. Lang. Monitor * 
1312 Paddles 511.95 
1311 Joystick 
1702 Monitor .. 


SURGE PROTECTOR 
UL LISTED 


SPREAD SHEETS 
Multiplan. -574 


.*48 


.535 
.*35 
Electronic Arts 


EMEN Sea's 


ATARISOFT 
Centipede 
Defender 
Dig Dug... 
Donkey Kong . 
Pac Man .. 
Robotron . 


EU 


INFOCOM 
PRINTERS Zork 1, 11, HI... 
EPSON ; Suspended 
5 | Starcross 
OKIDATA | Deadline........ 
STAR | COMPUTER COVERS. 
Gemini 10X.. | 
Gemini 15Х.. Features 
SUBLOGIC a EE UD heavy duty 
| сапуаз 
Flight Simulator ............. *39.95 | with vinyl 
CARDCO | interior 
Cardco G* waterproof. 
Printer Interf. CMD 64 ...........$6.99 
rinter Interface Ве Оз ус с е 


Tymac the Connection 


6 Slot Expander Interface. 
3 Slot Expander Interface... 


Disk Driv 
Espon MX 80. 
Espon MX 80 
Okidata 92 ..... 


56.99 


Ordering & Payment Policy 
Prices reflect a cash discount. For C.O.D., Visa, and Master- 
card add 3% Immediate delivery with certified check or wired 
funds. N.J. resident add 696. Prices subject to change. 


Shipping 
For shipping and handling 
add 396. ($3 minimum) 
Larger shipments require 
additional charge. 


Catalog 
We sell a large selection of 
hardware and software. 
Send $1 for catalog, refun- 
dable with order. 


User Group Update 


Kathy Yakal, Editorial Assistant 


The Southeast Metro Commodore User Group 
(SEMCUG) of Portland, Oregon, has been 
disbanded. 

New address for the South Orange County 
User Group is c/o Steve Wimer, 32221 Alipaz #240, 
San Juan Capistrano, CA 92675. 

The Commodore 64 User Group, Inc., of Glen 
Ellyn, Illinois, has been disbanded. (New group 
has been formed; see C-64 User Group, Inc., 
Lincolnwood, Illinois, in this listing.) 

The correct address for the Commodore Pre- 
ference Users Connection (C.P.U. Connection) is 
c/o Danni Hudak, P.O. Box 42032, Brook Park, 
OH 44142. 

Тһе Capitol Area Commodore Club can now 
be reached at P.O. Box 333, Lemoyne, PA 17043. 

The VIC-20 User Group of Lincolnton, North 
Carolina, has expanded to include coverage of 
the Commodore 64. The new name is VIC-20/64 
User Group. 

The new phone number for the Commodore 


PET User Group of Gretna, Louisiana, is (504) 
455-4619. 

The new address for the North Country Com- 
puter Club is c/o Eleanor Cunningham, 1607 Ford 
St., Ogdensburg, NY 13669. (315)393-2708. 

Correspondence for the 64 User Group (for- 
merly of Midnight Circle in Plano, Texas) should 
be addressed to P.O. Box 801828, Dallas, TX 
75380. 

The new address for the Quad Cities Com- 
modore Computer Club is c/o Mike Hoeper, P.O. 
Box 3994, Davenport, LA 52808. (319)242-1496. 

Тһе Central Washington Commodore User 
Group can be contacted at P.O. Box 10937, Yakima, 
WA 98909. 

When writing to a user group for information, 
please remember to include a self-addressed, 
stamped envelope. Send additions, corrections, 
and deletions for this list to: 


COMPUTE! Publications 
P.O. Box 5406 

Greensboro, NC 27403 

ап: Conumodore User Groups 


Commodore Club/South 
William J. Freeman Club 

1641 3rd Pl. NW 5517537127 
Birmingham, AL 35215 
3 504) 365-3889 
Southern California 64 uae 


User Group 
Robert Johnson 
14944 Bayou Ave 
Bellflower, CA 90706 
(213) 867-4398 


Club (LCUC) 
Dennis Trankner 
28 Barrett Cr 
London, Ontario, 


Amateurs And Artesians (ETE BOE ES 


2 9) 681-5059 
Computing DI) SSE! 


Castlegar Commodore Computer 


Castlegar, B.C., Canada VIN 3H7 


The London Commodore User 


Clearwater Commodore Club 

Gary Gould 

1532 Lemon St. 

Clearwater, FL 33516 

(813)442-0770 

Commodore Connection 
Computer Club 

Craig Mihalko 

P.O. Box 6684 

West Palm Beach, FL 33405 


Lake County Commodore Club 
John Ziegler 


Bill Alexander 

P.O. Box 682 

Cobb Mountain, CA 95426 
c/o Alex KR6G 


Santa Rosa Commodore 64 
User Group 

Garry Palmer 

333 E. Robles Ave 

Santa Rosa, CA 95407 

(707) 584-7009 

The Exchange 

Michael C. Joseph MD 

P.O. Box 9159 

І ong Beach, CA 90810 

(213) 595-177 і 


Diamond State User Group 
Michael Butler 

Box 892 Rd 2 

Felton, DE 19943 

(302) 284-4495 


VIC 20 Owners Club 

Tom Lomax 

17 Greystoke Dr. 
Bilborough, Nottingham, 
Nottinghamshire, England 
Phone: Nottingham 289567 
Chips User Group 

Jerry Klimczak 

UMR Box 3063 

Avon Park, FL 33825 


P.O. Box 326 

Гахагев, FL 32778 

(904) 343-4499 
Commodore User Group 
(forming) 

David 5. Weatherly 

1401 Denfield Ct. 
Lithonia, GA 30058 


Atlanta Commodore 64 User 
Grou 

Ronald Lisoski 

1767 Big Valley Ln 

Stone Mountain, GA 30083 

(404) 981-4253 
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Commodore User Group 
Grant Bervick 

310 Emerald Dr. 

Kellogg, ID 83837 

(208) 784-8751 


User Group of Lower Idaho (U.G.L.I.) 
Sean Brixy 

Rt. 4 Box 67 

Rupert, ID 83350 

Fox Valley 64 User Group 

Frank Christensen 

Р.О. Box 28 

N. Aurora 
(312) 898-277 


Commodore Club Of Evanston 
(COMCOE) 

Jim Salsbury 

2108 Sherman Ave. 

Evanston, IL 60201 


L 60542 
9 


Pros And Newcomers Into 
Commodore (P. A.N.I.C.) 

David A. Davis 

R.R.5 Box 243 

Danville, IL 61832 

(217) 443-5573 


South Suburban VIC-20 User Club 
Nick Forte 

16409 Emerald Ave. 

Harvey, IL 60426 

(312) 331-4851 


The C-64 User Group Inc. 
Darrell Hancock 

David Tamkin 

P.O. Box 46464 
Lincolnwood, IL 60646 
(312) 588-0334 (Hancock) 
(312) 583-4629 (Tamkin) 


Dekalb County Computer Club 
Darla McCammon 

4896 С.К. 60 

Saint Joe, IN 46785 

(219) 337-5528 (home) 

(219) 432-4300 (work) 


Computer Hobbyists In 
Plymouth (CHIP's) 

Don Myers 

201 Dickson St. 

Plymouth, IN 46563 

(219) 936-2423 


Commodore Owners Of Lafayette 
(COOL) 

Ross Indelicato 

20 Patrick Ln. 

W. Lafayette, IN 47906 

(317) 743-3410 


Iowa City Commodore User Group 
John Navitsky 

616 Hawkeye Dr. 

lowa City, ТА 52240 

Newton Commodore User Group 
David Schmidt 

320 W. 9th St. S. 

Newton, IA 50208 


Commodore User Group Ireland 
W. ]. Murphy 

3 Woodlands Dr. 

Stillorgan, Blackrock, 

County Dublin, Ireland 


Randallstown C-64 User Group 
Steven Zigler 

8827 Sigrid Rd. 

Randallstown, MD 21133 

(301) 655-8402 


Commodore 64 User Group 
Jorge Montalvan 
11209 Tack House Court 
Potomac, MD 20854 
(301) 983-8199 


Commodore 64 User Group 
(forming) 

Steve Lepsetz 

20050 Winchester 
Southfield, MI 48076 

(313) 354-7224 

(313) 353-1130 


Slipped Disk Inc. 

31044 John К 

Madison Heights, MI 48071 
(313) 583-9803 


Heartland Area Computer 
Cooperative 

Robert (Sam) Walz 

Rt. 4 Box 204 

Little Falls, MN 56345 

(612) 632-5511 


Commodore Computer Club 
Andrew Holder 

Southern Station, Box 10076 
Hattiesburg, MS 39401 

(601) 268-7585 


Hackers Of Lake St. Louis (HLSL) 
Jim Gaeschke 

513 Oak Terrace 

Lake St. Louis, MO 63367 

(314) 625-4782 

BBS (314) 625-4782 


Desert Byte Computer Club 
Lenny Baldini 

P.O. Box 3757 
Tonopah, NV 89049 
(702) 482-5565 


Morris Area Commodore User 
Group 

Bob Searing 

51 Fernclift Rd. 

Morris Plains, NJ 07950 

Hudson Valley Commodore 
Club 

P.O. Box 2190 

Kingston, NY 12401 

The Northern New York 
Commodore Home User Group 

(NORNY-CHUG) 

P.O. Box 226 

Norwood, NY 13668 

Andrew VanDuyne 

(315) 353-4591 


64 Southtowns User Group 
Michael Tubbert 

59 Bright St. 

Cheektowaga, NY 14206 
716) 893-6586 


The New York City VIC-20/C-64 
User Group (NYCUG) 

Joycelyn Woods/Allan Hobbs 

36 E. 69th St. 

New York, NY 10021 

(212) 787-2854 

BBS (212) 534-3149 

Zweibrucken Commodore 
Computer Club 

James K. Sturgeon 

Box 1044, TSA-EURCOR, 

APO, NY 09 

(This group is in Germany) 


Head Start Commodore 
User Club 

Anne Murphy 

5701 Main St. 

Williamsville, NY 14221 

(716) 631-0241 


Staten Island Commodore User 
Group (SICOM) 

Tony Isoldi 

3770 Richmond Ave. 

Staten Island, NY 10312 

(212) 984-4256 


New Zealand Commodore 
User Group 

J. R. Walker 

P.O. Box 5223, 

Auckland, New Zealand 

CCND 

James Allen 

1607 Reno Dr. 

Bismark, ND 58501 


Marion Ohio Commodore User 
Group (MOCUG) 

Van Munro 

775 Wolfinger Rd. 

Marion, OH 43302 

(614) 726-2630 


Jefferson State Computer 
User Group 
23 


“апар Baker Rd. 
Medford, OR 97501 


Klamath Commodore 64 
User Group 

Mrs. Juanita Eiteneier 

P.O. Box 7654 

Klamath Falls, OR 97602 


Commodore User Group of 
South Pittsburgh 

Groves TV & Computers 

2407 Penna Ave. 

West Mifflin, PA 15122 

c/o Charles W. Groves III 

The Charleston Computer 

Jack A. Furr Jr. 

P.O. Box 5264 

N. Charleston, SC 29406 

(803) 747-0310 

BBS (803) 747-6981 


ET 64 User Group 
Walt Turner 

P.O. Box 495 
Knoxville, TN 37901 


Corpus Christi Commodores 
Bob McKelvy 
P.O. Box 6541 
Corpus Christi 
(512) 852-7665 


Bunch 'A Bytes 

Joey Miller 

4916 121st Pl. NE 
Marysville, WA 98270 


Ellensburg Commodore User 
Group 

William C. Smith 

Department of Anthropology 

Central Washington University 

Ellensburg, WA 98926 

(509) 936-3489 (work) 

(509) 925-2981 (home) 


C-64 Diversity 

Jill Johnston 

18204 67th Ave. NE 
Arlington, WA 98223 
(206) 435-4580 


Spokane Commodore User Group 
S.A. White 

N. 4311 Whitehouse 

Spokane, WA 99205 


Kanawha Valley Commodore 64 
User Group 

Jeff McClintick 

P.O. Box 922 

Charleston, WV 25314 


Commodore Hobbyists Involved 
In Personal Systems (CHIPS) 

Richard M. Kohn 

1017 Kilbourn Ave. 

West Bend, WI 53095 

(414) 338-1609 (days) 

(414) 334-2494 


TX 78411 
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How to do your own maintenance, troubleshooting, 
schematics, theroy of operation, cleaning hints, 
conversion from one power source to another and calibra- 
tion. These topics and many more 
will make this manual a valued addi- 
tion to your reference shelf. Whether 
you are an amateur electronics 
technician or a seasoned profes- 
sional, you will be able to realize the : 1541 ре 


full potential of your VIC-1541 by us- i MANTENANDE MINGA 


ing this manual. Step-by-step in- 
structions will lead you through the 
proper methods to get your VIC-1541 
up and going in a hurry. The manual 
is 170 pages long, has two foldouts 
and over 100 illustrations, including: 
Block Diagrams 

Schematics 

Waveforms 

Isometric (Pictoral) views 

Test point locators 


With all these illustrations and the detailed theory for each 
circut involved, along with step-by-step procedures to 
follow, the manual is a great time and money saver. 


CONTENTS OF MANUAL 
Front Matter 
Section 1 Introduction 
Section 2 Theory of Operation 
Section 3 Initial Configuration 
Section 4 Performance Test 
Section 5 Calibration 
Section 6 Disassembly/Reassembly 
Section 7 Preventive Maintenance 
Section 8 Troubieshooting 
Section 9 Schematics and Parts Layout 
Appendices 
Suggested list price: $39.95 


HEAT DISSIPATING KIT 
For VIC-1541 and 1541 Disk Drives 


FEATURES: 

Reduces internal tempratures to safe operating levels. 
Does not promote dust migration. 

No added noise. 

Easy to install. 

Increases life expectancy and realiability of disk drive. 
Increases operating time of disk drive. 

Installs on both VIC-1541 and 1541 Disk Drives. 

The heat Dissipating kit cools the internal components 
of the Disk Drive by transferring internal heat to an exter- 
nal heat sink, where the heat is then dissipateded into the 
surrounding air. The kit will lower operating tempratures 
of the IC's by as much as 20 degrees C (36 degrees F), and 
thus allow all the IC's to operate within their absolute max- 
imum temprature ratings. 

Suggested list price: $24.95 


GOSUEB 


GRIDIRON STRATEGY “64 


AND YOU THOUGHT FOOTBALL SEASON WAS OVER 
GRIDIRON STRATEGY '64 and the Commodore 64 now 
give you a year-round seat on the 50-yard line. GRIDIRON 
STRATEGY '64 is a highly realistic simulation of football 
instincts NOT "Joystick Reflexes". Most football games 
let you control a few players an a scrolling field. NOT 
GRIDIRON. In GRIDIRON, you coach the entire team and 
the colorful field and the stadium styled scoreboard are 
completely visiable at all times. Also, with the use of TEAM 
DATA DISK ‘84, the teams you control are the actual pro 
teams, based on their performances in the "84-85 season. 
These disk can be updated every year, so you can constant- 
ly keep up with the rise and fall of each team. Finally, com- 
pare these features with any other football game on the 
market, for any other computer: 
Real time game and 30-second play clocks? 
Colorful Graphics, and Sprite animation? 
Realistic sounds of a packed stadium? 
Optional print out copy of plays and statistics? 
Individuaoized teams, based on actual performances? 
96 possible play combinations, infinate results? 
Does not require and charts or dice for results? 
In-depth playbook and strategy sections? 
GRIDIRON STRATEGY ‘64 offers all of these qualities. 
ORDER NOW!!! 
Suggested retail price: 
GRIDIRON STRATEGY ‘64 - $27.95 
TEAM DATA DISK ‘84 - $14.95 


THE FLEXI-KEY SYSTEM 


20 keys, 19 of which may have 3 seperate definitions! Com- 
plete documentation! Works on the VIC-20 (Expanded) and 
C-64 Computers! Compatible with most existing software! 
Great for use with business programs and electronic 
spread sheets! Works with COMPUTES MLX program as 
an aid to machine language programmers! 


Suggested list price: $69.95 


ORDER FROM: 

GOSUB of Slidell, Inc. 

P. O. Box 1781 

Slidell, LA 70459 

(504) 641-8307 

MasterCard and VISA 
Shipping & Handling $2.00 
C. O. D. add $2.00 


Dealer and Distributor inquires welcome 


Here are several tricky techniques that allow 
you to protect your tape programs from being 
copied. 


In the VIC and 64, whenever a LOAD from tape 
or SAVE to tape is processed, the section of 
memory known as the tape buffer will be used as 
follows: 


Location Use 

828 ($033C) Type of tape file 

829 ($033D) Low byte of start address for LOAD/SAVE 

830 ($033E) High byte of start address for LOAD/SAVE 

831 ($033F) Low byte of end address for LOAD/SAVE 

832 ($0340) High byte of end address for LOAD/SAVE 

833-1019 ($0341-$03FB) 
Program name or filename (padded with spaces to 
fill the buffer) 


When a program is being LOADed or SAVEd, 
the filename will be stored starting at memory 
location 833, and the rest of the tape buffer will be 
filled with spaces. The computer compares the 
program name with the filename on the tape. A 
program is found on tape when all of the characters 
of the filename in the LOAD statement are 
matched. Therefore, being able to find a program 
does not guarantee that the filename specified in 
the LOAD statement is the same as that of the 
filename on the tape. 

For example, LOAD "VIC" will LOAD a tape 
file named VIC, or VIC20, or VICTOR, or even 
VIC@ + =$%@$%. 

All that matters is that all of the characters 
specified in the filename in the LOAD statement 
are matched. When a program is found during a 
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Tape Protection 
For VIC And 64 


Victor Chan 


LOAD, the screen displays only the first 16 char- 
acters of the filename. Thus, if a user SAVEs a 
program according to the name shown on the 
screen during a LOAD, the file may not be SAVEd 
with the same filename as the original one on the 
tape, especially if part of the filename is nonprint- 
able characters. This property of the load state- 
ment can be used to prevent unauthorized tape 
reproduction. 

Let's look at three methods of protecting tape 
files. 


SAVEing With Hidden 
Characters 


In immediate mode, the VIC can execute a line of 
up to 88 characters long; the 64 is limited to 80 
characters. To SAVE a program with a long 
filename, the whole 80 or 88 characters may be 
used. If a program is SAVEd with a filename that 
is longer than 16 characters, the characters starting 
at the seventeenth position are not displayed. 

To protect a program, first SAVE the program 
with a name longer than 16 characters. Then, 
somewhere in your program, check for one or 
more of the characters beyond the sixteenth posi- 
tion. If a match is not found, do a SYS to some 
arbitrary position to crash the program. 

Here is an example. 


1. SAVE the program you wish to protect 
with a character in the seventeenth position 
of the filename: 


SAVE"NAME{12 SPACES]A" 


2. Include this subroutine in the program 


AARDVARK LTD. 


DUNGEONS, 


VIDEO ADVENTURES" 


DUNGEONS OF MAGDARR - Serious 
D of D for up to 8 players. 
Features full 3d GRAPHICS! 
You get a choice of several 
characters that grow from 
game to game and are 
interchangeable with char- 
acters from our famous 
Dungeons of Death game. A 
real dungeon with level after 
level of monsters to conquer 
and treasures to find - all in 
hi-res 3d graphics. 


Available On: TRS80C, ІВМ PC, CMD64 


TAPE $19.95 DISK $24.95 


QUEST - A different kind of 
Graphic Adventure, it is 
played on a computer 
generated mape of Alesia. 
You'll have to build an army 
and feed them through 
combat, bargaining, explo- 
ration of ruins and temples, 
and outright banditry! Takes 
2 - 5 hours to play and is 
different each time. 


Available On: TRS80C 16K, CMD64, VIC20 13K, М010 
16K, TI99 (EXT. BASIC), IBMPC 


TAPE $14.95 DISK $19.95 


MARS - Your ship crashed on 
the Red Plane and you have 
to get home. You will have to 
explore a Martian City, 
repair your ship, and deal 
with possibly hostile aliens to 
get home again. This is 
recommended as a first 
Adventure. It is in no way 
simple - playing time 
normally runs from 30 to 50 
hours, but it lets you try out 
Adventuring before you 
battle the really tough ones. 
Full Graphics Adventure. 


Available On: TRS80C, CMD 64, IBM PC 


TAPE $19.95 DISK $24.95 


BAG-IT-MAN - The ultimate 
arcade game for TRS80C or 
MCD64. This one has three 
screens full of BAGS OF 
GOLD, CARTS & ELE- 
VATORS TO RIDE IN, MINE 
SHAFTS, and TWO NASTY 
GUARDS. Great sound and 
color and continuous 
excitement. 


Available On: TRS80C 32K, CMD64 


TAPE $19.95 DISK $24.95 


STARFIRE - If you enjoyed 
StarRaiders ог StarWars, 
you will love Starfire. It is not 
a copy, but the best shoot- 
em-up, see them in the 
window space game on the 
CMD64 or TRS80C. The 
fantastic graphics will put 
you right in the control room 
as you hyperspace from 
quadrant to quadrant 
fighting the aliens and 
protecting your bases. 


Available On: TRS80C 16K, CMD64 


TAPE $19.95 DISK $24.95 


PYRAMID - ONE OF THE TOUGHEST 
ADVENTURES. Average time 
through the pyramid is 50 - 
70 hours. Clues are 
everywhere and some 
ingenious problems make 
this popular around the 
world. FULL GRAPHIC 
ADVENTURE. 


Available On: TRS80C 16K, CMD64, MC10 16K, IBM PC 
TAPE $19.95 DISK $24.95 


NEW! GRAPHIC ADVENTURES 


Authors - AARDVARK pays top dollar for high quality 


AARDVARK offers over 120 original high quality programs. 
Send one dollar for a current catalog and receive a $1.00 
gift certificate good towards your next purchase. 


STARFIRE 
=== er EE 


D 


BN 


programs. Send a copy today for a personal review and 


editorial help. 


TO ORDER: Send amount indicated plus $2.00 shipping, per order. Include quantity desired and your preference of tape or disk. 
Be sure to indicate type of system and amount of memory. When using charge card to order by mail, be sure to include expiration date. 


CHARGE CARDS 
WELCOME 


1-313-669-3110 


PHONE ORDERS ACCEPTED 
8:00 a.m. to 8:00 p.m. E.S.T., MON-FRI 


AARDVARK Aetion Software 2352 S. COMMERCE • WALLED LAKE, МІ 48088 • (313) 669-3110 


CMD64 / TRS80C / 


IBMPC / ViC20 / TI99 


and execute it with a GOSUB 60000 early in 
the program: 
60000 А = PEEK (833-416) 


A"THEN RETURN 
60010 SYS 833 


When the program is LOADed, the filename will 
be displayed as NAME, so if someone attempts to 
make an unauthorized copy, they will probably 
use NAME alone. Then, when the program 
goes to the subroutine at line 60000, it will not 
find the required A in the seventeenth position. 
The SYS 833 (any memory address can be 
used) will send the computer off to execute a 
machine language program where no such pro- 
gram exists. This doesn't hurt the computer, but 
the resulting lockup will probably make it necessary 
to turn the computer off and back on. 


SAVEing With Hidden Variables 


The method described above checks the contents 
of a certain memory location in the tape buffer. 
To provide even more protection, the contents of 
the location may be used to initialize some vari- 
ables in the protected program. If the user tries to 
SAVE without the full filename, the program does 
not initialize properly and will not run. 

For example, if the value of the variable Z is 
set to 45 in the protected program, include in the 
SAVE statement the character equivalent of 45 at 
or after the seventeenth position in the filename. 
To find out the character equivalent of any 
number, simply use the BASIC command CHR$, 
and include this character between the quotes in 
your SAVE statement. For example, use 


: IF CHRS$(A)=" 


SAVE "NAME{12 SPACES]-" 
or simply 
SAVE "NAME(12 SPACES}"+CHRS$(45) 


Instead of having a line with Z = 45 in the program, 
use Z = РЕЕК(833 + 17). This way the program 
can only run properly with the full filename. 


Adding Machine Language To 
The Program Name 


The final approach is the most complicated. It 
requires the use of machine language. You use 
part of the filename portion of the tape buffer to 
hold a machine language subroutine. Again, the 
program cannot run properly unless the program 
is SAVEd with the original name. To use this 
method, put a SYS somewhere in the protected 
program which calls the subroutine in the tape 
buffer. If the subroutine is not there (if the program 
was not SAVEd with the original filename, in- 
cluding the machine language portion), the pro- 
gram will probably crash when it attempts to ex- 
ecute the contents of the tape buffer as machine 
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language. 

It would be a tedious process to calculate the 
CHR$ equivalent of every byte in the ML routine 
and type the corresponding characters as part of 
the filename. Also, only a portion of the available 
171 bytes (locations 849-1019) could be used, since 
the length of the filename (including the SAVE 
command and quotes) is limited to 88 characters 
on the VIC, 80 on the 64. 

These limitations can be avoided if the Kernal 
ROM routines built into the VIC and 64 are used. 
The required routines are SETNAM, SETLFS, and 
SAVE. For information on these routines, see 
Chapter 3 of the VIC-20 Programmer's Reference 
Guide or Chapter 5 of the Commodore 64 Program- 
mer's Reference Guide. 


Using The Registers From BASIC 


These ROM routines all require that values be 
placed into the microprocessor's A, X, and Y 
registers, which can be done directly only with 
ML programming. The key to using these rou- 
tines without resorting to ML is knowing that 
values POKEd to location 780 will be loaded into 
the A register, location 781 will be loaded into the 
X register, and location 782 will go into the Y 
register. 

As an example, the following steps illustrate 
one way to use the Commodore 64 Kernal routines 
to SAVE a BASIC program from memory to tape 
with a machine language subroutine as part of 
the filename: 

1. POKE the character values for the desired 
program name into locations 49152-49167 ($C000— 
$СООЕ). POKE the value for the space character 
(32) into any of the 16 locations which are not 
used. 

2. Load the ML routine into memory be- 
ginning at location 49168 ($C010). The routine can 
be up to 171 bytes long. 

3. POKE location 780 with the number of 
bytes in the ML routine, plus 16 (for the 16 bytes 
in the name). 

4. Use the SETNAM routine to tell the com- 
puter where to find the filename: 


РОКЕ 781,0:РОКЕ 782,192:5Ү5 65469 


The РОКЕ values given are for a filename starting 
at location 49152 (256*192 + 0 = 49152). These val- 
ues must be changed if the filename is at some 
other point in memory. 

5. Use the SETLFS routine to specify that a 
SAVE is to tape: 


POKE 780,1:POKE 781,1:РОКЕ 782,255:5Ү5 65466 
6. Use the SAVE routine to store the BASIC 
program on tape. The data in the section of mem- 


ory defined in Step 4 will be copied into the tape 
buffer and used as the filename: 


Let Your CBM-64 “SPEAK” 


COMvoice IS AS EASY AS 1-2-3 SPEAK 
1) PLUG COMvoice INTO SPEAK 


YOUR CBM-64 
2) TURN YOUR COMPUT. 3 SPEAK 


ON 
3) TYPE SPEAK "HELLO, 
HOW ARE YOU" 


AS EASY TO USE AS 
APRINT STATEMENT 


SPECIAL $99.95 
W/EXTERNAL SPEAKER $139.95 DEALER INQUIRIES INVITED 


ALSO ASK ABOUT OUR 


HOME SECURITY AND ENERGY MANAGEMENT PRODUCTS 
VIController COMsense COMclock/AUTOboot 


Wireless remote control system Input device for the VIC-20 and Clock/calendar cartridge for 

for the VIC-20 and CBM-64. CBM-64. Provides 4 open/close CBM-64 with battery backup 

Use with BSR and Leviton remote and 2 analog inputs. and auto-start software in ROM. 
receiver modules. $69.95 $49.95 $69.95 


AGE NE 15 P.O. вох 1143 Bethlehem, PA 18018 (215) 861-0850 


AEM COMPUTER CORPORATION IB. VIC-20 and CMB-64 are trademarks of Commodore Business Machines Inc. 


COMPUTER GRADE : ^ 
е DATA TRAC e жЕ ON TY” “Plain Wrap 
BLANK CASSETTES б MS 6159- 
C-05, C-06, C-10, C-12, C-20, C-24, C-32 | «PO sco 


BUY THE BEST, AT FACTORY-DIRECT PRICES 


From the leading supplier of Computer 
Cassettes, new, longer length C-12's Ф soo C-12's or C-10's — 38e each | саззетте STORAGE САООУ * $ * 
(6 minutes per side) provide the extra млазна, add 4¢ » Shppng 21150 | Holds 12 casetes 32.98 fe; 7 ВА5Ғ 5219 Ø Dysan $269 


500 Bones 13е е > Shopng $10900 | wo box 
few feet needed for some 16K programs. (ree Cada oer does а apphy) | ces spe ше aualimetrie » 
* BASF-LHD (DPS) world standard tape and index 5%” SSDD, Soft sector, price per disk, 100 рак. 


* Premium 5 screw shell with leader. "yep ed 

* Internationally acclaimed. Thousands of a e FREE <> TRACTOR FEED eq FLIP “N” FILE i5 6795 
repeat users. Nnm УТА Тоа |С DISKETTE LABELS дсн 7. for 5⁄4” Diskettes 

• Error Free • Money back guarantee NE! Ме, Blua; Groen, Yalow. Lavender | es ууу S00 usn oher) 17e x 5" 1000 QUANT. v "25, $21.95 "50," $31.95 


Ss. Call: 818/700-0330 ORDER NOW... MAIL TO — c Call: 818/700-0330 ORDER NOW... MAIL TO - 
F 


~ FOR IMMEDIATE DELIVERY 9525 Vassar Ave. #G 
on Credit Card Orders. VORH 1 Chatsworth, CA 91311 OR IMMEDIATE DELIVERY VORH 1 Эв2о)уаяяятАуежев 
= = = = = = = = = ORDER FORM = = «= а» m ез еш ме ев аш m кә on Credit Card Orders. Chatsworth, CA 91311 
ж AD ORDER FORM == 
Each cassette includes 2 labels only. Boxes sold separate- тота] All Diskettes are soft sectored, unformatted. 
ly. In Continental U.S. shipment by U.P.S. If Parcel Post їп Continental U.S., shipments by U.P. S. 
preferred, check here. Г] If Parcel Post preferred, check here С) 


Check ог М.О. enclosed C] Send Quantity Discounts Г] "298 00 Check or М.О. enclosed (7) Send Quantity Discounts [7] 
Charge to credit card: VISA Г] MASTERCARD Г] = 4790] «= 52% Charge to credit card: VISA Г] MASTERCARD Г] 


| —  ] Card No. Pona 


Name 


M|ruew rie su 15 57956у, 
Address = — [25 5219 av. 50. $31.9 


| city State/Zip __ = — —  Slate/Zip 


Signature Phone —__ “ мы рын Signature — — — Phone — 


Ask about our DUPLICATING SERVICE Ask about our DUPLICATING SERVICE! 


POKE 780,43:POKE 781,PEEK(45):POKE 782,PEEK 
(46):SYS 65496 
Press play and record on the Datassette when 
instructed to do so, and your program will be 
SAVEd with the ML subroutine included. 


Also Good For VIC 


This same procedure (with the same SYS locations) 
can be used on the VIC. But you must change the 
memory locations where the program name and 
ML routine are stored. Locations 49152 and up 
cannot be used on the VIC. Some other unused 
area of RAM will have to be chosen. Note that the 
values POKEd to locations 781 and 782 in Step 4 
above will have to be modified to reflect the new 
address of the filename. 


If your protected program includes a SYS to 
the ML in the tape buffer, it will work properly 
only if the program has been SAVEd in this man- 
ner, so the chances of someone breaking this pro- 
tection scheme are very slim. 


LOW COST SOFTWARE 


Are you tired of paying high prices for your software? 
Let John Henry Software save you money! 


We distribute public domain software for your VIC 207“ 
or Commodore 64". We've tested and documented each 
program to guarantee you hours of fun and useful 
learning experiences. We specialize in prompt delivery 
of your software, even if you order tapes, and we 
guarantee our product. 


You'll also receive our free program reference book 
when you place your order. 


VIC 20 


Group VG 62 Games for Everyone 

Group VP 54 Programming, Demo, Business 
and Home .. 3 

Group VE 35 Educational Programs ... 


COMMODORE 64 


Group Сб 26 Games for Everyone 
Group CP 30 Programming, Demo, Business 


Group CE 16 Educational Programs .. 
Group CA 5 Adventure Games (disk only) 


When ordering, specify group and tape or disk. 
Send check or money order payable to: 
John Henry Software 
P.0. Box 39021 
Cincinnati, Ohio 45239 


Using any one or a combination of the three 
different levels of difficulty described should re- 
duce unauthorized tape reproduction. @ 


Don't wait! Order your software today! Or write for your 
free program reference book. You'll be glad you did! 


To keep our software prices low, our ad will only appear in the June, August, 
October and December issues of this magazine. 


ШШШ 


DIG LLO 


Order Line: 1-800-638-2617 


Information, Order Inquiry and In Ohio 1-216-758-0009 


software inc. 


1541 Disk Drive $219 

1530 Datasette 1600 Modem ........ 

1526 Printer 100 cps 1520 Printer/Plotter. 
COMMODORE 64 $219 


Color Monitor 
МР5801 Printer... 
1650 Auto Modem.. 


Assembler/Monitor.. Easy Script..... 
Super Expander.............. Easy Spell 


ae v SPREADSHEETS 

senem (Calo НЕ i.e 
CP/M 2.2... Calc Result Easy.. 
Intro to BASIC. Multiplan..... 
Visible Solar System OR байлы 
[CENE а ыы, 
Pinball Spectacular... 
ZORK III 
Suspended........ 
Easy Сас. 
Easy Finance ШУУ, 
The Manage : 
General Ledge 5 
Accounts Receivable. 
Accounts Payable MED. PROGRAM GENERATORS 
Payroll .... The Last Оп! 
Inventory .... Codewriter....... 


WORD PROCESSING 
Word Pro 3+ with speller 
Paper Clip ..... : 


DATA BASE MANAGERS 
Delphi's Oracle .. 
Super Base 64. 


We carry a complete line of Quality Commodore related products including those by 
Tineworks, Spinnaker, Epyx, Sierra, HES and Cardo. Even if not listed, we probably 
have it, at the lowest price possible. SEND FOR OUR CATALOG! MOST ORDERS 
SHIPPED WITHIN 48 HOURS! All prices include cash discount. VISA/MC orders accep- 
ted - add 3.5%. NO C.O.D. ORDERS! For quickest delivery send bank check or money 
order. Personal or Company checks delay order 21 days. All sales are final - 
merchandise exchanged for same product only. Shipping add 3% ($2.50 minimum) 
Сай for shipping on monitors. Ohio customers add 5.5% sales tax. Prices & avail 


ability subject to change. 


defective 


HOME FINANCES 
Home Accountant 
FCM 
Tax Advantage 
MONITORS 
BMC green screen .....................$ 79 
BMC amber screen. -5 89 
BMC composite color............... $219 
PRINTERS 
Gemini 10X with Cardco interface 
deca .$319 
Gemini 15Х. 5 .$389 
Riteman.... 205299 
Okidata ....... КОПТЕ 
SPECIALS 
Compuserve Starter Kit 
Smart 64 Terminal 
Micro Pak Paper... 


HOURS: 
Mon.-Fri. 
10 a.m. - 
Saturday 
10 a.m. - 


1301 Boardman-Poland Road, Poland, Ohio 44514 


10 p.m. 


5 p.m. 


CALC RESULT-ADVANCED 

3-D Spreadsheet for 64 

64x254x, 32 pages, 9 language helpscreens, 
GRAPHICS! 


Rom only 64x254. Color 

GRAPHICS . ee $4500 
VIC SWITCHES.. “Connect t up to 8 VIC/64's 
to disk and/or printer. Cables not included 
(see below), 

Cables for above 3 meter-$14.00, 6 meter- 
$16.00, 12 meter-$19.95 (only one per 
computer needed) 

Call for pricing on HANDIC SOFTWARE and 
for info on the complete HANDIC line: 1- 
800-527-4893 or 1-800-442-1048 (in 
Texas) 


SJB DISTRIBUTORS INC. 
3524 Dividend Drive 
Garland, Texas 75042 


Visa/MC add 3%, Continental US orders 
only. Return authorization needed on 
defective products. 


PORTABLE 
5839 


COMMODORE 64. 
5199 


мс 20 

M-801 Dot 

MCS 801 Color Printer. 
1520 Color Printer/Piotter. 
1530 Datasette 

1541 Disk Dre. 

1600 VIC Modem. 

1610 VIC Term 40. 

1650 Auto Modem 


commodore 

CBM 64 Reference Guide. 
C-64 DISKS 
EasyCalc. 
EasyFinance |, Il, IN, IV. 
EasyMail 
EasyScript 
Word/Name Machine. 
EasySpell 
Accounts Receiveable. 
Accounts Payable. 
| Ledger 

Assembler 
Logo 
Pilot 
Pet Emulator 
Screen Editor 
Music Machine. 
Music Composer 


.CALL 
*219.00 
*499.00 
129.00 

*69.00 
*249 00 
*59.00 
*59.00 
*89.00 


1702 Color Monitor. 

DPS Daisywheel Printer. 

Magic Voice Speech Module 
Organizer. Lock 


*e49.00 
*459.00 
*54.00 
*49.00 
*4.99 
511.99 
*42.00 
*69.00 
*42.00 
353.00 


1110 VIC BK 

1111 VIC 16K 

1011 RS-232 Interface 
1211 Super Expander 


SD 1 Disk Drive. 
SD 2 Disk Drive. 


CARDCO. 
Light Pen. 


3 Slot VIC Expansion Interface. 
6 Slot Expansion Interface. 
Cassette Interface 

Parallel Printer Interface. 
Parallel Interface w/Graphics. 


SOFTWARE 


COMMERCIAL DATA 
VIC 20 CASSETTES 


Motor Mouse *e3.00 


Centipod. 
Frogee 

С-64 CASSETTES 
Road Toad 


*23.00 
*e3.00 


з24.00 


VIC 20 CARTRIDGES & DISKS 


Gortek & the Micro Chips (С) 

Super Slot (9) 

Super Alien (9). 

Jupiter Lander (R) 

Radar Rat: Race |Н) 

Count. Adventure (9) 

Pinball Spectacular (8) 

VIC Reference Guide. 

ARTWORX 

C-64/VIC 20 CASSETTES 

Bridge 4.0 

Teacher's Pet 

BRODERBUND 
VIC 20 CASSETTES 

Martian Raid. 

Shark Trap. 

Multisound Synthesizer 


QUICK BROWN FOX 


C-64/VIC 20 CARTRIDGE 


Word Processor 


*49.00 


CREATIVE SOFTWARE 
C-64 CASSETTES 
Home Inventory 
Household Finance. 
C-G4 CARTRIDGES 


+1100 
123.00 
Trashman $29.00 
C-64 DISKS 
Home Inventory 
Household Finance 

VIC 20 CASSETTES 
Home Inventory 
Household Finance. 

VIC 20 CARTRIDGES 
Astro Blitz 
Black Hole 
Trashman 

oplifter 


*11.00 
*29,00 


512.00 
“4.00 


*21.00 
*32.00 
$21.00 
*2100 

DYNATECH 

С-64 DISKS 


EPYX 
CASSETTES 


Codewriter 


vic 

Riccohet 

Sword of Fargoal. 
at Rigel. 


*32.00 
*24.00 
$24.00 

UMI 

VIC 20 CASSETTES 

*30.00 

*40.00 

*30.00 
VIC 20 CASSETTES 


Cloud Burst *15.00 


ATARISOFT 


*349.00 
*599.00 


*32.00 
*32.00 
379.00 
*29,00 
*49.00 
*69.00 


C-G4/VIC 20 CARTRIDGES 


Centipede 

PacMan 

Donkey Kong. 
Dig Dug 

Defender 

Robotron 

Stargate 

HES 
VIC 20 CARTRIDGES 


Aggressor 
Synth 
Shamus. 
Protector 
Turtle Graphics. 

C-64 CARTRIDGES 
HES Mon. 
HES Writer 

NUFEKOP 

VIC 20 CASSETTES 

Alien Panic. 
Race Fun-Drag Race. 
The Catup 
Exterminator 

C-64 CASSETTE 
3-0 Man 

ROMOX 

Type (20/64) 

RAINBOW 

C-64 DISKS 

Personal Finance. 
Writer's Assistant 
Spreadsheet. Assistant. 

QUANTUM 
40/80 Column Video Board 


$10.00 
*16.00 
*10.00 
19.00 


*16.00 


*e9.00 


348.00 
*95.00 
за5.00 


*95.00 


PRINTERS 
Epson 
Okidata 
Stari Gemini 10X 
Star Gemini Delta 10. 
Smith Corona ТР.2 
Cltoh Prowriter 8510P. 
Citoh Gorilla 
BMC вх80 
DUST COVERS 
C-64/VIC 20 Cover 


CALL 

CALL 
#299.00 
5559.00 
2399.00 
+37900 
5209.00 
*269.00 


*9.99 


SIRIUS 
VIC 20 CARTRIDGES 
Deadly Duck 
Spider City. 


MICROSPEC 
VIC 20 CASSETTES 


Speling Bee. 
Grades 2, 3, 4, 5 
Math Dril. 
Portfolio Manager 
Data Manager 


or 6. +8.00 
3800 
“6.00 

16.00 

VIC 20 DISKS 

General Ledger. 

Mailing List Manager 

Inventory Package. 

Payroll 

Data Base 


*69.00 

33500 

$69.00 

*69.00 

*49.00 
C-64 CASSETTES 

Black Box 

Color Sketch. 

Match Maker. 


“200 

$20.00 
+1600 

C-64 DISKS 

Maling List. Manager 

Inventory Package. 

General Ledger 

Payroll 

Data Base 

CalcResult 

Black Box 

Color Sketch. 

Match Maker 


54500 
7900 
378.00 
378.00 
*69.00 
313900 
316.00 
з2200 
*20.00 


VICTORY 
NIC 20 CASSETTES 
3 games) 

games) 


C-& 
Adventure Pak 1 
Adventure Pak Il ( 
Annihilation 
Grave Robber 
Kongo Kong. 11600 
Trek *4100 


PROFESSIONAL SOFTWARE 


“12.00 
*12.00 
*16.00 
31100 


Video Verman 519.00 


40/80 Column Video Board (16K)......°179.00 Word Pro 64 Plus Spell *65.00 


We carry a selection from the above manufacturer's plus 
Synapse, Thorn, InfoCom, Onslow, Practicalc, Spinnaker Б. Timeworks. 


canada 


Ontario/Guebec 


800-268-3974 


Other Provinces800-268-4559 
In Toronto са! (416)828-0866,Dept.40613 
Order Status Number: 828-0866 
x 5 P.O.Box 6689 

477 E. 3rd St., Williamsport, PA 17701 узот" ріне Чт LSLATA Stateline, NV 89449 

k, no deposit оп C.O.D. orders and no w: ig period for certified checks or money orders. Add 3% (minimum *5) shipping and handling 
on all orders. Larger shipments may require additional charges. NV and PA residents add sales tax. All items subject to availability and 
price change. Call today for our catalog. CANADIAN ORDERS: All prices are subject to shipping, tax and currency fluctuations. Call for 
exact pricing in Canada. 


east 
< 800-233-8950 


In PA call (717)327-9575,Dept.40613 
Order Status Number: 327-9576 
Customer Service Number: 327-1450 


west 
800-648-3311 


In NV call (702)588-5654,Dept.40613 
Order Status Number: 588-5654 


All About PRINT 
For VIC And 64 


Julie Harris 


The simple PRINT statement becomes a 
drawing tool in this screen graphics tutorial. 
рса 


The PRINT statement was one of the first BASIC 
statements you learned when your computer was 
so new it still gleamed. You may be interested in 
more complicated routines now—reading joy- 
sticks, creating your own graphics characters, or 
writing machine language. But the humble PRINT 
statement still has something to offer. 

You can use PRINT in a generalized sub- 
routine that draws pictures using the keyboard 
graphics characters. PRINT is useful if you want 
to manipulate graphics characters as if they were 
in a variable-length array. However, this won't 
use the storage space required for arrays. Or, you 
can PRINT an unending series of pictures, each 
unique, and never run out of memory. 

Let's begin with a review of some basic char- 
acteristics of the PRINT statement. 


Commas And Semicolons In 
PRINT Statements 


When a PRINT statement ends with a semi- 
colon, the next character printed will appear in 
the next horizontal screen location. For example, 
PRINT “THREE”: PRINT “DIFFERENT”: PRINT 
“LINES,” will print 


THREE 
DIFFERENT 
LINES, 


but PRINT "ALL ”;: PRINT “ON ";: PRINT 
“ONE.” will print 


ALL ON ONE. 


In the example above, each word ends with a 
space. If you left out the spaces, you would see 
something like this: ALLONONE. Using a semico- 
lon after a PRINT tells the cursor to stay put. If 
you forget to include the spaces, the words run 
together. 

The rules are slightly different when you 
PRINT numbers. Try PRINT1;2;3 and you will 
find that each number has a space on either side. 
Whenever you PRINT a number, a trailing space 
is automatically added and the space in front is 
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reserved for a minus sign (in case the number is 
negative. If you enter РКІМТ-1;-2;-3 you see only 
one space between the numbers instead of two. 

When you use PRINT by itself, the computer 
prints and then moves to the beginning of the 
next line; the result is a printed list of items. Using 
а semicolon makes the cursor stay where it is, 
and everything runs together. 

If you want something in between the two 
extremes, you can use a comma to separate the 
variables. This is helpful when you want columns 
(rather than just a list). A VIC screen has two 
columns of eleven characters; a 64 gives you 
four columns of ten characters. PRINT “А”, ВС”, 
^DEF","GHIJ","KLMNO","PORSTUVW" will 
show you how the columns look (notice that the 
left edges are lined up). Using commas to make 
columns can be useful in a variety of applications. 
For example, FORX = 56TO63: PRINTX, PEEK(X): 
NEXT prints a column of memory addresses fol- 
lowed by their contents. 


PRINTing Characters With CHR$ 


The CHR$ function can be used in place of any 
string in the PRINT statement. For instance, 
PRINT CHR$(65) has the same effect as PRINT 
“А”. A list of CHR$ codes can be found in the 
appendices of the owner's manual or Programmer's 
Reference Guide for your computer. 

Some of the CHR$ codes are used for charac- 
ters. Others are used for functions like "clear 
screen" or "cyan." 


Positioning PRINT 


PRINT causes the printing to begin in the first 
space of the next available unused line on the 
screen. This beginning position can be controlled, 
however, by using the equivalent of X and Y co- 
ordinates. The Y coordinate specifies the line on 
which to begin printing, and the X coordinate 
specifies the space (column) within that line. 
Vertical (Y) positioning can be controlled 
using the LEFT$ function. LEFT$(X$,I) returns a 
string containing the leftmost I characters of string 
X$. In positioning printing, we will define a string 
L$ = “ІНОМЕН21 DOWN}" for the VIC, or L$ 
= “{HOME}23 DOWN} for the 64. To begin on 


The Banner Machine" 

For the Commodore 64 (3 extra fonts available). 
For the VIC-20 with 24K memory (2 extra fonts 
available). * Use on any Gemini or Epson MX with 
Graftrax or the FX and RX printers. Also Commo- 
dore 1595E and Banana with the С-64. е Menu- 
driven program operates like a word processor. * 
Makes signs up to 13" tall oy any length. * Makes 
borders of widths up to 34". • 8 sizes of letters 
from 34" to 8" high. * Proportional spacing; Auto- 
matic centering; Right and left justifying. • $49.95 


Tape or Disk (Specify computer equipment) 


For the Commodore 64: 

Space Raider An amazing arcade simulation. Your 
mission is to destroy the enemy ships. $19.95 
CTRL-64 Permits listing of C64 programs on non- 
Commodore printers. Lists control symbols in 
readable form. Tape or disk $24.95 

Microbroker Exciting, realistic and educational 
stock market simulation. $34.95 Tape or Disk 
Preschool Educational Programs ABC Fun and 
193 Fun have bright color and action. Each $14.95 
Formulator А scientific calculator for repetitive 
arithmetic computations. Save formulas. Ideal for 
chemistry, physics, or engineering students. $39.95 
MUPOS Create a file of up to 9 basic programs 
from keyboard/tape/disk and run each program 
selectively. Combine programs. Renumber BASIC 
lines. Note pad, and more. Tape or disk $99.95 
Grade Organizer Teachers—store grades for 6 
classes, up to 40 students each, 680 grades per 
student. Print interim and final reports, class 
rosters, and more! Disk $39.95 


ез Cardinal Software" 


Virginia Micro Systems, 13646 Jeff 
Davis Hwy., Woodbridge, УА 99191 
ORDERS ONLY (воо) 762 5645 

FOR INFORMATION (703) 491-6502 


Commodore 64 and VIC-20 are з 
trademarks of Commodore Не 


Professional Software Inc. 


“#1 Selling Software" for Word 
Processing per Compute Gazette 
March 84, Issue 9 


WORDPRO 3*/W SPELLRIGHT 
€ Numeric Mode (add columns) 
© Easy directory loading! 
€ Built-in dictionary w/“Fast Scan" option 


SPELLRIGHT (DISK) 20,00 word t 1500 
word user-defined to “add to" WordPro 3+ 


NEW! WORDPRO FOR IBM-PC 
Word-Plus PC w/The “BOSS”, On-Line 
“SPELL-CHECKING & CORRECTION” add 
professional "WINDOWING" dictionary.MS- 
DOS compatible. Y 
(Merges with 1-2-3, dBase ll, VISICALC, 

SUPERCALC, & MULTIPLAN) 
SJB DISTRIBUTORS INC. 

3524 Dividend Drive 

Garland, Texas 75042 
1-800-527-4893 (US) 

1-800-442-1048 (Texas) 

VISA/MC-add 3% Continental US orders 
only 


82395 


Executive 64 


64 Prog. Ref. Guide. 


HesWare. 
Г 


EXPAND THE COMPUTER EXPERIENCE." 


Access Cyber Micro Prose 
Beach-Head (D)26.95 Cus ic 34.95 Floyd of the 
Neutral Zone (D)26.95 уш! Jungle (0)23.95 
CBS English/Spanish. (0)34:95 Hellcut Ace (0)23.95 
Addition/Subtraction....(D)20.95 Preschooler (0)34.95 Solo Flight (D26.95 
Multiplication/ Division , .(D)20.95 Science (D)34.95 Nato Commander (026.95 
Linear Equations. (D)20.95 History/Geography (D)34.95 Slerra on Line 
Quadratic Equations... (020,95 Music Theory (D)34.95 RS (D.1)23.65 
Murder by the Dozen (D)29.95 ‘Mathematics (0)34.95 Homeword (D)47.95 
cps Trivia (0)94,95 Sammy Lightfoot (D)21.80 
Frantic Freddy (D)26.95 Datasoft Threshold (D)21.80 
Pegasis (D)26.95 Poo Yan 4D, T)20.30 Lunar Leeper (D)21.80 
Commodore Genesis (027.0 B.C. Quest for Tires. ....(D)25.50 
Assembler (D)37.95 O'Riley's Mine (D)20.30 Oil's Well (D)21.80 
Bonus Pack (D.T)16 Dallas Quest (0127.00 Learning W/Leeper.... .(D)21.80 
CP/M2.2 System (ст): еркине Sirua Software 
Easy Script (D)44.95 ҮШ Turmoil (027.00 
Easy Mail 64 (D)18.95 iee EDE (р)27.00 
Easy Spell 64 (D)18.95 are Zoe Squish'Em (D)23.65 
Easy Calc 64 (D)64.95 pam Repton (D)27.00 
Easy Lesson/Quiz (D)18.95 ane (сүлбе) Blade of Blackpoole .....(D)27.00 
Easy Finance(1-5) (D)18.95 2 07 iere EDT) Type Attack (D)27.00 
Logo (D)68.25 [emp oF Sneha D Way Out (327.00 
Pilot (042.95 ОАР плен Critical Mass (D)27.00 
Pet Emulator (D)18.95 of Apshai (50185 subLogle 1 
Intro to Basic 1 (018.95 See (DS. Flight Simulator Il... .(D)44.95 
Screen Editor (0)18.95 Men or Рагоза! (0020; Night Mission Pinball. ..(D)26.95 
Super Expander VSP. .(D)37.95 Jumpman (D.7)27. Spinnaker 
The Manager (D)59.95. ECGEVAGVAEROR (ӘМ) Alf in the Color Caves ...(C)27.95 
Simons Basic (С)45.95 "pnus (61210) Bubble Burst (С)27.95 
Music Machine (C)15.95 On Bion (Ір 2200 Juke Box (27.95 
Music Composer. (D)18.95 Lunar Outpost OEC Kidwriter (D)23.95 
Word/Name Machine , . .(D)18.25 Бонд Face Maker (0,С)23.65 
Zortek and ће Giobal Risk (D); Hey Diddle Diddle ..... .(D)20.30 
Microchips (121.95 Tes SAAR sic 42.50 Kindercomp (C.D)20.30 
Inventory Mgmt (0)59.95 3 (D)24.25 Snooper Troops (D)27.00 
Payroll Checkwriting. . . .(D) 59.95 Witsoe (D)20.45 Fraction Fever. (С)23.65 
Accts. Payable (D)59.95 RERO (020.45 Amazing Thing (D)27.00 
Accts. Receivable (0)59.95 eia (017.00 Alphabet Zoo. (D)23.65. 
беп Ledger (059.95. Hes Mon 64 (€)27.00 Kids on Keys. (C. D)23.68. 
(0249195 Turtle Graphics П (C)40.60 Delta Drawings CRES 
(D)49.95 ERES Up for Grabs (С)27.25 
ма agic Desk (0154.95 АКСО е ams Cosmic Life (€)23.65 
Zork (1-3) (093095 SN Story Machine (027.25 
Suspended (D)37.95 (D)42.95 Trains (0)27.95 
Starcross. (0130.95. mien Aerobics (D)30.95 
Deadline (D)37.95. H Scarborouj 
Continental omo Cel DS pis р)35.95 
Home Accountant - (D)50.75 Multiplan OD 95 Master Type D)35.95 
Tax Advantage. . (D)40.60 Hes Writer 64 (ou Б Булар 
FCM. (D)40.60 Оне. (12025 Ft. Apocalypse (D.C23.70 
Home Cataloger (D)30.95 EIU Scares ed Shamus (D,C)23.70 
Creative Software The Pit (С)20.25 Blue Max (D.C)23.70. 
Pipes (23.65 64 Forth (49.95 ШМ оти 
Decision Turtle Toyland Jr. (D,1)23.95 шелек гожа 
Maker (D)13.50 Chameleon (D)17.00 pul (D pen 
Household Ghost Manor/Spikes " Combat Leader (D)29.00 
Finance (D)16.90 реак... (DHT Knights of the Desert. ...(D)29.00 
Home Inventory (D)13.50 ES Games '84. KD Computer Baseball (D)29.00 
lic vcre (D)13.56 Minnesota Fats Pool. . . . .(C)20.45. Eagles (D)29.00 
Moondust (С)23.65 He Мәйіт ү (0149-95 Ring Side Seat (D)29.00 
Save New Yo 23.65. поуке! 
SERGE (Әд Stock Analysis. (Di41.95 
Cx commodore CALLFOR INFORMATION 
Commodore 64 1600 Modem Joysticks Wico Red Ball. . .20. ШЕ Clíoala 


Pointmaster .... 


1541 Disk Drive Diskettes PointmasterPro.18.55 ^ Cardco Tablet .(D)79.95 
1530 Datasette BASF 5%” SSDD Fire Control .....7.85 Card+G -. GEMINI Printers 
MPS 801 Printer 2Рак... ж 5,50 Wico Card B O'SULLIVAN 
1650 Automodem BASF Command Ctrl .19.50 — Cass. Interface етн 

1702 Color Monitor Soft Box(10) ...23.80 Wico “Вовв” ...13.50 550 MAXTRON 
Call for Atari, Apple & IBM-PC Software Numeric Keypad 30.25 — Datasettes 


54995 
We Have the Software & Prices You Need! 


10.95 


The Factory 


$9425 


Wico Power Grip 2 2 


Touch 


Іп 


Texas 800-442-8717 


Software 


Wave nouse 
P.O. Box 2511 
Longview, Tx. 75606 


Order 800-527-8698 


To order, call toll free or send by mail. We accept Visa, Master 
Card, American Express or Money Orders. Personal checks 
allow two weeks to clear. Add $2.00 for shipping with an 
additional $1.65 for C.0.D. orders. Other countries please 
include 10% with a minimum of $10.00. All prices are subject to 
change. For return authorization call 1214] 759-8937. 


SEND FOR FREE CATALOG 


any line Y, we will use PRINT LEFT$ (L$, Y). 

Horizontal (X) positioning can be controlled 
using the TAB function. PRINT TAB(X) will begin 
printing in column X of the designated line. Re- 
member that the first position on a line is column 
0, the second is column 1, and so on. 

Let's combine these two functions and print 
a red heart in the fifth column of the tenth line on 
the screen: 


10 L$ = "{HOME}{21 DOWN)": PRINT "{CLR}" 


:rem 104 
20 PRINT LEFTS(L$,19) TAB(5) CHR$(28) CHR 
$(115) :rem 142 


Repeating Characters 

If a character is to be printed several times, a 
FOR-NEXT loop is more efficient and takes less 
memory than repeating the character in the 
statement: 


10 1$ = "{HOME}{21 DOWN]": PRINT "(CLR)" 
:rem 104 

20 PRINT LEFTS(L$,11) TAB(3); :rem 35 

30 PRINT CHR$(30) CHRS(18); :rem 155 


40 FOR I = 1 TO 7: PRINT CHR$(32);: NEXT 


:rem 14 


This program prints a green bar on the 
eleventh line, beginning in the third column. The 
CHR$ codes used are: 


30 = GREEN 
18 = REVERSE ON 
32 = SPACE 

А Simple Sun 


With these four characteristics in mind, let's draw 
a simple picture using the PRINT statement: a 
child's representation of the sun. 

We need to consider three elements in creat- 
ing this picture: the individual characters needed, 
the color desired, and the location of each charac- 
ter. After consulting our chart of CHR$ codes, we 
find that the needed values are 109, 98, 110, and 
113. As for color, let's be conventional and use 
CHR$(158)—yellow. Coordinates Y 2 10, X210 
should give us a beginning point roughly at the 
center of the VIC screen. (You'll need to adjust 
the TAB values if you want the sun to appear 
centered on a 64 screen.) 


So our sun-drawing program will read: 


10 L$ = "{HOME}{21 DOWN}": PRINT "{CLR}" 
:rem 104 
20 PRINT LEFTS$(L$,19) TAB(12); :rem 80 


30 PRINT CHR$(158) СНЕ5(109) CHR$(98) CHR 


$(119) zrem 115 

40 PRINT TAB(11); :rem 182 

50 PRINT CHR$(113) :rem 217 

60 PRINT TAB(12); :rem 183 
70 PRINT СНВ5(110) CHR$(98) CHRS$(199) 

:rem 135 


In typing this and other programs, eliminate 
14 
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spaces between words. They add to readability, 
but use up memory. 

Let's draw another picture, this time using a 
repeated character: 


10 L$ = "{HOME}{21 DOWN)": PRINT "{CLR}" 
:гет 104 
20 PRNT 1ЕЕТ$(1$,1@) ТАВ(7); :гет 221 


30 PRINT CHR$(156) CHR$(18) CHR$(169);: Е 


OR I = 1 TO 3: PRINT CHR$(32);: NEXT 
:rem 166 
49 PRINT CHR$(146) CHR$(169) :rem 208 
50 PRINT TAB(6); :rem 139 


60 PRINT CHR$(156) CHR$(18) CHR$(169);: F 


OR I = 1 TO 3: PRINT CHR$(32);: NEXT 
:rem 169 
70 PRINT CHR$(146) CHR$(169) :rem 211 


Voilà! A purple parallelogram! 
The Basic Picture Elements 


We now have all the basic elements necessary to 
print any picture: 


€ X, Y positioning of first line 

ө PRINTing one character 

ө PRINTing repeated characters 

€ X positioning of successive lines 

Instead of using the TAB function to position 
all the lines, let's use a string that we'll define as 
T$ = "(DOWN] (21 LEFT)" for the VIC, or T$ = 
{DOWN} (39 LEFT) for the 64. By using the LEFT$ 
function with this string, we can position each 
new line in relationship to the preceding line. 
Let's look at our sun-drawing routine again and 
see how we would program it using T$. In this 
picture, when the first line is finished printing, 
the cursor will be in the blank space following the 
/ (slash) character. We want to go down one space 
and move two spaces to the left to print the second 
line. 

Likewise, after the second line prints, we'll 
move down one and left two to begin the third 
line. PRINT LEFT$(T$,3) will give us the correct 
positioning for both lines. 


Writing The Subroutine 

At last we are ready to formulate our general 
PRINT subroutine. This subroutine, used with 
DATA statements, will print the two pictures we 
have already created. By adding additional DATA 
statements, it can also be used to draw any other , 
picture we might design. 


100 REM***GENERAL PRINT SUB :rem 104 
110 READQ:PRINTLEFT$(L$,Q); :rem 142 
120 READQ:PRINTTAB(Q); :rem 123 
130 READQ:IFQ-OTHEN179 :rem 79 
140 IFQ«OQTHENHQ-ABS(Q):READQ:FORI-1TOHQ:P 

RINTCHRS (Q); :NEXT:GOTO139 :rem 62 
150 IFQ>191THENPRINTLEFTS(TS$,Q/19@) ; :GOTO 

130 srem 162 
160 PRINTCHR$(Q);:GOTO130 ігеп 9 
170 RETURN :rem 120 

REM***DATA FOR SUN :rem 242 


This brand new $29.95 arcade/adven- 
ture game for the C64 is yours free 
when you join the 64 CLUB. In fact, this 
is just one of the 1st month's programs 
you receive when you join the64 CLUB. 
Each month's diskette contains 10 pro- 
grams in the areas of business, educa- 
tion, and recreation. Plus you also 
receive free consulting and software 
discounts. All this for only $40/ year. 
If you would like further proof of the 
quality of our software, send $5 for a 
trial month which includes Quest for 


Power. The 64 CLUB 
1260 Oliver Ave. 
San Diego, CA 92109 


"VENUS" BY VELAZQUEZ 
"There's nothing like it!” 


KIWISOFT PROGRAMS 
FOR THE C-64 


........ 


.4........ 


ө Paint it with PAINTPIC" $39.95 
16 colors, 160 x 200 screen, CAD 
ө Print it with PRINTAPIC" $44.95 
Most printers, hook rug, “Venus” 
* € Do both with CADPIC" $79.95 
Combines Paintpic + Printapic 
ө Puzzle it with PUZZLEPIC" $49.95 


Pictures, mosaics, mazes 


* More pictures with PICTUREDISKS $24.95ea 
Space, Cars, Planes, Fantasy, Animals 
@ More Puzzlepic puzzles: PUZZLEDISKS. $24.95ea 


Easy/Medium/Fiendishly Difficult! 
* Treasure the best of PAINTPIC ART. $89.00 
5 original paintings by "D.J.R." on disk 
* See our COMPUTER ART PRINTS (3 for $25) $8.95ea 
20" x 24" "Room" "Storm" "Holy Land" 
SEND FOR OUR FREE COLOR BROCHURE 
* DEALER ENQUIRIES WELCOME e 


Add $2 p & h. Pay in advance by check or 
т/о or VISA, АМЕХ. California, add 6% sales tax 


Programs on diskette from 
€^ kiwiSOFT PROGRAMS, €^ 
18003-L Skypark South, Irvine CA 92714. 


h 714 261 5114 
: c] 


INTRUDER ALARM 


for VIC 20: or Commodore 64тм 


BUZZER 


ALARM 
MODEL V100 


VIN Systems (USA) 
Р.О. Box 31 

Boone, iowa 50036 
1-515-432-2300 


Intruder interface includes: 
1. Vi00 Alarm Interface 

2. Four Magnetic Switches 

3. Piercing 95db Siren 

à 

5 


00 ft. twisted wire 
5 Alarm 50 ftware © 


0., VISA/MC (0: 


VIN Systems (U.S.A.) P.0. Box 31 
lowa 50036 


dam 
re Electronics Lt 


VIC - 20/ COM - 64 
HOME / BUSINESS 


VIC 64 

PRACTICALCPLUS (16К(Т) 43.95 
PRACTICALC 64 (Т) 43.95 

(disk version) 46.95 
TOTL TEXT 2.5 (T) 26.95 29.95 

(disk version) 32.50 
CARDCO 3 SLOT 28.95 
EXPANSION BOARD 


16K MEMORY 
EXPANSION 
Now $ 

ӘМЕТ 46... 


* 14 Day Money Back Guarantee 
Ж Boosts VIC to 21K RAM 
* Top Quality, Fully Tested 
* 90 Day Warranty 


for IMMEDIATE SHIPMENT 
on Credit Card Orders 


Call: (303) 245-9012 
9 AM - 9 PM MST Every Day 
ASSEMBLY TECHNOLOGY 


‚ 2692 Hwy 50 Suite 210 
Grand Junction, CO 81503 


Personal checks allow 3 weeks 


Shipping & handling $2.50. 
Colorado] Residents add Sales Tax 
COD add $2.50 


ЕН 


== SYSTEMS == 


FOR COMMODORE 64” 


MusicPlus $19.95 
GraphicAids $19.95 
UtilityPlus $15.95 
DeluxBanner $12.95 
MailLister $12.95 
Comal Proc & Func $14.95 


**PUBLIC DOMAIN GAMES** 
Copy Of Many $12.95 


TEXAS ADD SALES TAX 
$1.50 SHIPPING ON ANY ORDER 
MASTERCARD & VISA WELCOME 
$1.00 FOR DETAIL OF PROGRAMS 
AND LIST OF PRODUCTS 
Good for credit toward purchase 
Prices good until August 31, 1984 


PB SYSTEMS 
Box 790816 
Dept CM684 or CG684 
Dallas, Texas 75379 
(214) 991-0237 


VIC-20 Proiect your Invesiment С-64 


= Superior to cioth or vinyl. 

* No more dirt, ashes, spilled 
liquid and dropped items crashing 
onio the Keyboard. 


To order:check, money order, MC/Visa. 
Card No. 


Bank. 


Exp. date. 
Add $3.00 shipping & handling 

for each cover. 

Kansas residents, add 3% sales tax. 


Diversified Manufacturing 
3517 S. Knighi / Wichita, KS 67217 
(816) 943-5516 


910 РАТА5,10,158,109,98,110,300,113,300,1 
10,98,109,0 :rem 29 
920 REM***DATA FOR PARALLELOGRAM :геп 193 
930 DATA19,10,156,18,169,-3,32,146,169,70 
0,156,18,169,-3,32,146,169,0 :rem 117 


Lines 110 апа 120 determine the screen coor- 
dinates. Line 130 checks to see if the picture is 
complete. We will use 0 to indicate the end of a 
picture since there is no valid CHR$(0). Line 140 
handles repeated characters. Our data for a re- 
peated character will be the negative of the number 
of characters we want to print (we use the negative 
value to avoid using a valid CHR$ code), followed 
by the character to be repeated. Line 150 controls 
tabulation of new lines. 

Values desired are multiplied by 100 to take 
them beyond the range of valid CHR$ codes when 
creating the DATA. Line 160 prints one character. 
The whole procedure will continue until all DATA 
is read and printed and a 0 is encountered. 

Add the following lines to complete the 


program: 
10 L$="{HOME}{21 DOWN])":T$-"ÍDOWN] 
{21 LEFT)" :rem 239 
20 PRINT"(CLR]":FORI-1TO2:GOSUB100 :NEXT:C 
LR:END :rem 99 


Try running the entire program now, and see 
our two pictures print. 


Adjustments For The 64 


When this program is RUN on the 64, the shapes 
will be drawn off center on the screen. If you 
find this displeasing, change the definitions for 
L$ and T$ in line 10 to those mentioned earlier 
for the 64, then adjust the tabulation values in 
the DATA statements as appropriate for the 40- 
column screen. 

What are the advantages of using this 
generalized subroutine rather than a straight 
PRINT? 

The first and most immediate is a savings in 
memory. After you run this program, enter 
PRINTFRE(0). You will notice that the memory 
used is about 422 bytes. Beyond this initial re- 
quirement, the memory needed by additional 
DATA statements will be whatever is required to 
store the statements themselves. As the number 
of pictures printed increases, so does the savings 
in memory. 


DATA Used As Ап Array 


This subroutine could also use the DATA state- 
ments as if they were an array. An identifier could 
begin each set of DATA and could be used in the 
program to find the desired picture. 

Here is a very simple program illustrating 
this use: 


10 L$-"ÍHOME)(21 DOWN}":T$="{DOWN} 
{21 LEFT)" :rem 239 
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PRINT"(CLR)ÍBLK])(Í2 SPACES}CHOOSE A SHA 
PE:","{2 DOWN}{PUR} TRIANGLE SQUARE"," 


{2 DOWN} RECTANGLE" :rem 127 
30 PRINT"{2 DOWN} PARALLELOGRAM"  :rem 25 
40 INPUTAS:RESTORE :rem 183 


READBS$ : IFBS="END"THENPRINT"{2 DOWN} NO 
T A VALID CHOICE":FORI-1TO5000:NEXT:GO 


TO20 :rem 197 

60 ІЕВ5<>А5ТНЕМ50 :rem 206 
70 PRINT"{CLR}{3 DOWN}"A$:GOSUB199:FORI=1 
TO4099 : NEXT : GOTO20 :rem 59 
100 REM***GENERAL PRINT SUB :rem 104 
110 READQ:PRINTLEFTS(L$,Q); :rem 142 
120 READQ:PRINTTAB(Q); :rem 123 
130 READQ:IFQ-ÜTHEN176 :rem 79 
140 IFQ<@THENHQ=ABS (Q) : READQ: РОКІ=1ТОНО:Р 
RINTCHRS (0); :NEXT: GOTO13@ :rem 62 

150 IFQ»191THENPRINTLEFT$(T$,0/199); : GOTO 
130 :rem 162 

160 PRINTCHR$S(Q);:GOTO130 :rem 9 
170 RETURN :rem 120 
900 DATATRIANGLE,10,10,18,169,127,408,169 
,-2,32,127,146,0 :rem 219 

910 БАТАВЕСТАМСІЕ,10,10,30,18,-5,32,600,- 
5,32,146,0 :rem 170 

920 БАТА5ООАВЕ,10,10,28,18,-3,32,400,-3,3 
2,400,-3,32,400,-3,32,146,0  :rem 162 

930 DATAPARALLELOGRAM,190,10,159,18,169,-3 
,32,146,169,700,18,169,-3,32,146,169, 

0 :rem 159 

940 DATAEND :rem 142 


In this example, the DATA is searched and 
selected as if from an array, but no extra storage 
space is used. As before, 64 owners may wish to 
adjust L$, T$, and the tabulation values to reflect 
their larger screens. You may also want to make 
the following change to properly align the menu. 


20 PRINT"{CLR}{BLK}{2 SPACES}CHOOSE A SHA 
PE:":PRINT"{2 DOWN}{PUR} TRIANGLE": PRI 
NT"{2 DOWN} {RIGHT }SQUARE" 

30 PRINT"{2 DOWN}{RIGHT}RECTANGLE": PRINT" 
{2 DOWN} {RIGHT } PARALLELOGRAM" 


Load From Tape Or Disk 


The third usage we will consider takes a slightly 
different approach to our subroutine. Instead of 
storing DATA as statements in the program, we 
will create a data file. Our subroutine will then 
use INPUT# statements instead of READ state- 
ments to retrieve the data and accomplish the 
desired printing. 

The wonderful thing about this usage is that 
the length of the data file is not restricted to the 
amount of memory in your computer. It can be as 
large as your tape or disk allows. With this type 
of processing, you could print picture after picture 
without ever using any memory beyond the initial 
amount required to store the program. 


An Adaptation For Tape 

Here is an adaptation of our previous example 
program that illustrates the use of a data file as 
input from tape. Type, SAVE, and RUN the pro- 
grams in the following order: 


1. Type in Program 1 (the main program) and 
SAVE it on tape. 


2. Type in Program 2 (creates the data file) 
and RUN it, leaving your tape positioned at 
the end of Program 1. The data file will then 
immediately follow the main program and 
can be used as input. Then SAVE Program 2 
on tape after the data file, in case you want to 
create another data file. 


3. Rewind tape, LOAD Program 1, and 
RUN it. 


You will notice when you RUN this program 
that the amount of available memory does not 
appreciably decrease with each new picture. Only 
four pictures are included in this particular pro- 
gram, but 400 could have been stored in a data 
file and used as input without requiring any more 
memory in the main program. 


Program 1: 
PRINT Pictures From Data Files 
10 REM***INPUT DATA FROM ТАРЕ FILE AND DR 


AW SHAPES :rem 176 
20 L$2"[HOME](Í21 DOWN}":TS=" {DOWN} 

(21 LEFT)" :rem 240 
30 ОРЕМ1,1,0,"ТАРЕ FILE" :rem 57 


40 INPUT#1,A$:IFAS="END"THENPRINT" {CLR} 
{3 DOWN} THAT'S ALL!":CLOSE1:CLR:END 


:rem 215 

50 PRINT"{CLR}{3 DOWN}{BLK}"AS :rem 241 
60 GOSUB1900 :rem 119 
70 PRINTLEFT$(L$,18)"AVAILABLE MEMORY:"FR 
Е(0) :rem 207 

80 ҒОКІ-1Т05000:МЕХТ:Сс0Т040 :rem 190 
100 REM***GENERAL PRINT SUB USING ТАРЕ ІМ 
PUT :rem 168 

110 INPUT#1,Q:PRINTLEFTS$(LS$,Q) :rem 71 
120 INPUT#1,Q:PRINTTAB(Q) :rem 52 
130 ІМРОТЯ1,0:ІЕО-ФТНЕМ170 :rem 67 


140 IFQ«OTHENHQ-ABS(Q):INPUT£1,Q:FORI-1TO 
HQ:PRINTCHRS$(Q);:NEXT:GOTO130 :rem 50 
150 IFQ»191THENPRINTLEFT$(T$,0/1909); :GOTO 


130 :rem 162 
160 PRINTCHRS$S(Q);:GOTO130 :rem 9 
170 RETURN :rem 120 


Program 2: Data File Creator 
10 REM***CREATE A TAPE FILE OF DATA 


:rem 177 

20 ОРЕМ1,1,1,"ТАРЕ FILE" :rem 57 
30 RS=CHRS(13) :rem 204 
40 READAS:PRINT£1,AS$;RS$ :rem 66 
50 IFA$«»"END"THENAg zrem 129 
60 CLOSE1:END :rem 30 
900 DATATRIANGLE,10,19,18,169,127,409,169 
,-2,32,127,146,0 :rem 219 

910 БАТАКЕСТАКСІЕ,10,10,30,18,-5,32,600,- 
5,32,146,0 :rem 170 


920 DATASQUARE,10,10,28,18,-3,32,409,-3,3 
2,400,-3,32,400,-3,32,146,0 :геп 162 

930 DATAPARALLELOGRAM, 19,19,159,18,169,-3 
, 32,146,169, 799,18,169,-3,32,146,169, 
@ :rem 159 

940 DATAEND :rem 142 @ 


VIC & 64 


BEA COPY C.A.D. (CASSETTE AIDED DUPLICATOR) NOW 
YOU CAN MAKE BACKUP COPIES OF ALL THE COSTLY, 
NON-SAVEABLE CASSETTE PROGRAMS YOU BOUGHT. 


OUR BACKUP V1.0 UTILITY PROGRAM WILL LET YOU 
MAKE DUPLICATES THAT RUN. 


BACKUP V1.0 WILL WORK WITH A STANDARD 5K 


UNEXPANDED VIC. MEMORY EXPANSION IS REQUIRED 
TO COPY PROGRAMS LONGER THAN 3K BYTES. 


24.95 
ptuss200 SOFTWARE PLUS 
2\ 
SHIPPING & аат LANE 916-726-8793 
HANDLING CITRUS HEIGHTS, CA 95610 


VISA, MASTERCARD, AND MONEY ORDERS 
CA RESIDENTS ADD 6% SALES TAX. 
VICISA TRADEMARK OF COMMODORE 


(2 -] TUSSEY MOUNTAIN SOFTWARE SAYS: m 
(77) COMPARE OUR PRICES ON C64 SOFTWARE! |. "^" | 


Wordpro 3 + /64 wiSpellright(d) .... 564 Script 64(d) 564 
NEW! Wordpro 64 by Proline $45 NEW! Mailpro 64 by Proline $45 
Paperclip(d) $64 Bank Street Writer(d) $47. 
Cardco Write Now/64 (cart) . $39 Practicalc 64 by MSI(d) $37. 
Heswriter (cart) 922161 532) Practicalc 64 by MSl(cass) $35. 
Calc Result Adv. (cart.d) cc $/2, Cardco Printer Int. w/Graphics $67. 
Calc Result Easy (cart) $42. Cardco Printer Int./B. 537 
Hesware Multiplan(d) $67. Cardco Numeric Keypad $29, 
Hesware Omnicalc(d) $34 Cardco Lightpen $29 
HesModem | (64 or 20) $54. The Last One(d) i 41569 
P.S. (Progr. Spreadsheet) (d) $55 Delphi's Oracle(d) .... ў $106. 


TO ORDER: For MasterCard, Visa, COD orders call 814-234-2236. Hours are 10-7 
mon-sat, 12-5 sun EST. For Personal checks, certified checks, money orders. 
write: Tussey Mountain Software, Box 1006, State College, PA, 16804. MOST 
ORDERS SHIPPED in 48 HOURS! Credit Card orders add $3.00 shipping, COD 
add $4.50. Others shipped free. Allow 2 weeks for personal checks to clear. 
Orders shipped UPS unless specified otherwise. Manfacturer's warranty honored 
with our invoice and original packaging. PA residents add 6% sales tax. 


DATAFILE MANAGER 
DATABASE MANAGEMENT FOR THE COMMODORE-64 


Successfully used in computer classes to teach the concepts of random files 
and ISAM to beginning users... but sophisticated enough for home and small 
business use. Consists of 5 disk programs and comprehensive loose-leaf manual 
with step-by-step instructions. Includes build-file program for ready-to-use 1000 
record mailing list, zip-code sorted label printing and alpha phone list printouts. 
‘SPECIFICATIONS: Menu driven • 80 characters per field 15 fields per record * 254 characters 
per record * Up to 1200 records per disk • ISAM random access files • Sort on any field е User- 
defined alpha and numeric fields * Nested sorts * Nested totals and subtotals Compiled for 
speed * User-defined print formats with top and bottom headers, page length and skip over perf 
* View or print selected information from your file. 


SYSTEM REQUIREMENTS: C-64 Computer * 1 or 2 1541 disk drives * TV or monitor (color or BM) 
* Properly interfaced printer (program runs with limited applications without printer). 

$40 postpaid 
KENNeWRITER Extremely easy to use menu driven wordprocessor that works with 
any properly interfaced printer. Both youngsters and adults love this one! 
SPECIFICATIONS: Compiled for speed • Word wrap • Programmable function keys • Insert on/off 
* Move line/block • Delete line/block * Search * Search and replace • User-defined print com- 
mands е Automatic page headers and numbers • Merge files • Chain files * "Wedge" disk com- 
mands emulated • Step-by-step manual • System requirements as above. 

$30 postpaid 

ORDER BOTH PROGRAMS—JUST $55 postpaid 
JAMESTOWN SOFTWARE 
2508 Valley Forge • Madison WI 53719 е 608-271-5527 
COD's Accepted • Dealer Inquiries Invited 


ARE YOU PAYING TOO MUCH FOR SOFTWARE? 


SOFTWAR ДЕУ 
SHOPPER ]: commodore users 


Each monthly issue brings you honest reviews & up-to-date news of the latest software products 
available for your Commodore computer! Full of information. news. reviews... written by and lor com- 
puter owners just like you! Plus. software bargains {rom vendors large and small! Join our thousands of 
readers....Subscribe to SOFTWARE SHOPPER today! You won't be sorry! А full year. just $10.00!! 


SOFTWARE SHOPPER, BOX 309-C, FRASER, MI 48026 USA 
SUBSCRIPTION RATES: Next 6 issues. 56.00. Next 12 issues. $10.00. Circle your choice! 


Name 


Address 


City, State, Zip 
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NEWS 
PRODUCTS 


VIC And 64 
Keyboard 
Overlays 


Cheatsheet Products has pro- 
duced a series of plastic keyboard 
overlays for the VIC-20 and 
Commodore 64 which are quick 
reference aids for a variety of 
Commodore and third-party 
software. 

The plastic templates, called 
Leroy's Cheatsheets, include pro- 
gram starting instructions, 
marked function keys, and refer- 
Cheatsheet Products’ plastic overlay for Easy Script for the 64. ence tables, charts, or drawings. 

Overlays are available for 
the following VIC-20 programs: 
Programmer's Aid, Vicmon, Super 
Expander, VIC Typewriter, and 
VICTerm I (all by Commodore), 
and Quick Brown Fox (Quick 
Brown Fox), UMI Wordcraft 20 
(United Microware Industries, 
Inc.), HES Writer and HES VIC 
Forth (both by Human En- 
gineered Software), as well as 
Graphic Printer (Commodore 
1515 and 1525) and a general 
BASIC overlay. 

Overlays for the Commo- 
dore 64 programs include: Term 
64 and Easy Script (both by Com- 
modore), HES Writer and HES- 
mon (both by Human Engineered 
Software), Quick Brown Fox 
(Quick Brown Fox), WordPro 3/ 
Plus (Professional Software), 
Graphic Printer (Commodore 
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1515 and 1525), Paper Clip (Bat- 

teries Included), and BASIC. 
Each overlay sells for $3.95, 

plus $1 shipping and handling. 

Cheatsheet Products 

P.O. Box 8299 

Pittsburgh, PA 15218 

(412) 456-7420 


VIC And 64 
Cassette Backup 


Creative Electronics has pro- 

duced a cassette backup for the 

VIC-20 and Commodore 64 

which works with any Commo- 

dore machine with a data cassette 

recorder. Written in machine 

language, the product allows 

you to protect your programs on 

tape by creating a reserve copy. 
The cassette backup is avail- 

able for $14.95. 

Creative Electronics 

P.O. Box 4253 

Thousand Oaks, CA 91360 

(805) 492-1506 


Bible Study For 
Commodore 


Seek-Bible is a group participation 
program for two to ten people 
which allows you to competi- 
tively search for particular sec- 
tions of the Bible. It is available 
on tape for the VIC-20, PET, and 
Commodore 64 machines. 


Using a system of chal- 
lenges, search periods, solu- 
tions, and an internal timer, 
Seek-Bible controls the action of 
the search. A variety of menus 
are presented to the searchers 
from which to choose appropri- 
ate actions or supporting dis- 
plays on the screen or printer. 

Seek-Bible sells for $24.95 on 
tape. Two additional search 
tapes, Seek-Bible 2 and Seek-Bible 
3 are available on tape for $12.95 
each. 

SEI Enterprises, Inc. 

17 Serpi Road 

Highland Mills, NY 10930 
(516) 757-9783 


Graphics 
Package For 64 


Doodle!, a graphics program for 
the Commodore 64 designed to 
effectively use its color and high 
resolution capabilities, has been 
introduced by City Software. 
The program works with 
either a track ball or joystick, 
and uses color-coded menus and 
visual cues as aids. Among its 
features are a "stamp" option 
which lets you create up to nine 
repeatable graphic symbols. On- 
screen designs may be printed on 
the Commodore 1525 printer and 
most other popular printers, in- 
cluding C. Itoh 8510 or NEC8023, 
most Epson or Star/Gemini, and 
most Okidata printers. 


Doodle!'s copy function will 
duplicate, squeeze, reduce, en- 
large, stretch, rotate, or reposi- 
tion a drawing or part of a 
drawing on the screen. The save 
feature will store drawings on a 
disk for later recall or alterations. 
You may draw and erase with 
track ball or joystick in nine pen 
sizes at nine speeds. With the 
program, you can draw in 16 
colors; choose drawing, fill, and 
background colors; change any 
color; or color over anything on 
the screen. 

The suggested price for 
Doodle! is $39.95. 

City Software Distributors, Inc. 
735 West Wisconsin Avenue 
Milwaukee, WI 53233 

(414) 291-5125 


VIC-20 
Interface Board 


A parallel interface board has 
been produced by Showtronics 
for the VIC-20 computer. 

The circuit board has two 
parallel eight-bit ports. One port 
has buffering and the other can 
be used for input or output. A 
6522 VIA and 2716/32 Eprom are 
also on the board. Several in- 
cluded routines allow you to use 
the SYS command for input or 
output to 2-20 pin connectors. 
The interface may be used for 
printer control, cordless tele- 
phone input, alarm input-output, 
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-ATLANTA GA 
HICAGO IL 
02 MILES 


ROUTE SUMMARY 


ELAPSED 
TIME ! MI. TIME 
1.75 (113MI) TO- р 
CHATTANOOGA тм 2110 '113 2:10 
ЛТ ТҮКТҮН 
1 24 (130MI) TO- 
NASHVILLE TN 


2150 !243 4:40 
жаана жа аа аа а аза жа аа! ааа инники. 


I 65 (434MI) TO- 


8:20 (577 13:01 


CHICAGO IL 0:28 !702 1 
ТЕТІГІ 


COLUMBIA SOFTWARE SNM 999 


A sample screen from Columbia Soft- 
ware's Roadsearch. 
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and other applications. 
The board sells for $139.00. 


Showtronics 

6780 Friars Road #105 
San Diego, CA 92108 
(619) 692-1212 


Computerized 
Road Maps 


Roadsearch and Roadsearch-Plus 
have been released by Columbia 
Software for the Commodore 64. 

These computerized road 
maps simplify the calculation of 
driving routes, determining the 
shortest practical routes between 
cities in its data base. 

Roadsearch contains a data 
base of 406 cities and road inter- 
sections and about 70,000 miles 
of interstate and major highways 
throughout the U.S. and 
Canada. Roadsearch-Plus offers 
these features as well as a road 
map development system that 
lets you customize maps. With 
Roadsearch-Plus, you can add 
up to 50 towns and 100 road 
segments anywhere in North 
America. 

Roadsearch is available on 
disk for $34.95. Roadsearch-Plus 
sells for $74.95 on disk. 

Columbia Software 
P.O. Box 2235C 
5461 March Hawk 
Columbia, MD 21045 
(301) 997-3100 


64 Color 
Graphics 


Flying Colors, a color graphics 
package designed for use with a 
standard joystick, has been re- 
leased for the Commodore 64 by 
The Computer Colorworks. 

With screen windows, you 
can pick such functions as thick 
and thin lines, circles and boxes 
of any size, erasures, and the 
ability to fill enclosed areas with 
a number of colors. 

Text can be added to the 
screen, and a grid feature helps 
you align your pictures. You 
may save and retrieve the pic- 
tures that are created. Flying 
Colors also includes a program 
which allows you to produce a 
slide show with the graphic 
creations. 

Flying Colors is available for 
$39.95 on disk. 

The Computer Colorworks 
3030 Bridgeway 
Sausalito, CA 94965 
(415) 331-3022 


64 BASIC Aid 


Don’s Program House has de- 
veloped a BASIC programming 
aid for the Commodore 64 called 
BASIC-Plus, which uses two- 
touch commands in order to 


simplify entry and expand the 
number of BASIC commands. 

Additional commands such 
as FIND, REF, CRUNCH, UN- 
CRUNCH, DELETE, APPEND, 
ANALYZE, AUTO, and OLD 
are included. The two-touch 
commands (FSET, FLIST, 
FSAVE, and FLOAD) allow the 
programmer to define and con- 
trol up to 64 functions by touch- 
ing two function keys. 

Written in machine lan- 
guage, BASIC-Plus is available 
on disk for $21.95. 

Don's Program House 
4817 Clipping Court 
Louisville, KY 40222 
(502) 228-0341 


VIC, 64 Modem 
Adapter 


The Universal Modem Adapter 
by Applied Systems and Pro- 
ducts allows a VIC-20 or a Com- 
modore 64 to be used with any 
type of phone for telecommuni- 
cations through a VIC modem. 

The adapter will support 
modular as well as non-modular 
phones, including one-piece 
electronic phones with built-in 
dialing. It does not require any 
modification to your phone or 
the modem. Nor do you need 
additional equipment, such as 
an RS-232 interface or acoustic 
coupler. 

The modem adapter sells for 


$14.95, plus $2 for shipping. 
Applied Systems and Products 
1021-H West Bishop 

Santa Ana, CA 92703 

(714) 541-0233 


Games For 
The 64 


Bytes and Bits has released 
several new games for the Com- 
modore 64. 

Dungeons and Demons is a 
fantasy adventure game in which 
the player attempts to success- 
fully move a character through 
12 levels of a dungeon in search 
of a golden chalice. With a total 
of 1200 rooms to explore and 
more than 40 types of monsters 
to encounter, the player may 
choose to be a dwarf, warrior, 
halfling, thief, elf, or wizard. 
The game sells for $21.95 on disk 
and features three-dimensional 
graphics, multi-color sprite 
graphics, and sound. 

Goombahtz is a computer 
version of a dice game for up to 
six players. The game uses six 
three-dimensional dice and 
flashes more than 100 messages 
of encouragement, sympathy, 
and rule applications as the game 
progresses. The computer will 
play against itself, against 
another player, or allow you to 
play the game while making 
sure all rules are followed. Соот- 
bahtz is available for $16.95 on 


disk or tape. 

Crazy Conveyors is an action 
game that challenges you to race 
against time as you climb lad- 
ders, slide down fire poles, and 
cross unpredictable moving con- 
veyors. The player gathers ammo 
while fending off enemies. A 
built-in screen creator allows 
you to expand the game up to 
128 screens. Additional disks 
may be used for unlimited 
screens. The game uses custom 
characters, multi-color sprites, 
three-part harmony music, and 
works by joystick or keyboard. 

Crazy Conveyors sells for 
$29.95 on disk. 

Bytes and Bits 

524 East Canterbury Lane 
Phoenix, AZ 85022 

(602) 942-1475 


COMPUTE''s GAZETTE welcomes an- 
nouncements of new products for 
VIC-20 and Commodore 64 computers, 
especially products aimed at beginning 
to intermediate users. Please send press 
releases and photos well in advance to: 
Tony Roberts, Assistant Managing 
Editor, COMPUTE's GAZETTE, P.O. 
Box 5406, Greensboro, NC 27403. 


New product releases are selected from 
submissions for reasons of timeliness, 
available space, and general interest to 
our readers. We regret that weare unable 
to select all new product submissions for 
publication. Readers should be aware 
that we present here some edited version 
of material submitted by vendors and 
are unable to vouch for its accuracy at 
time of publication. @ 
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А Beginner's Guide 
To Typing In Programs 


What Is A Program? 


A computer cannot perform any task by itself. 
Like a car without gas, a computer has potential, 
but without a program, it isn't going anywhere. 
Most of the programs published in COMPUTE!’s 
GAZETTE for Commodore are written in a computer 
language called BASIC. BASIC is easy to learn 
and is built into all VIC-20s and Commodore 64s. 


BASIC Programs 


Each month, COMPUTE!’s GAZETTE for Commodore 
publishes programs for both the VIC and 64. To 
start out, type in only programs written for your 
machine, e.g., "VIC Version" if you have a VIC-20. 
Later, when you gain experience with your com- 
puter's BASIC, you can try typing in and converting 
certain programs from another computer to yours. 
Computers can be picky. Unlike the English 
language, which is full of ambiguities, BASIC usu- 
ally has only one "right way" of stating something. 
Every letter, character, or number is significant. A 
common mistake is substituting a letter such as 
О for the numeral 0, а lowercase | for the numeral 
1, or an uppercase B for the numeral 8. Also, you 
must enter all punctuation such as colons and 
commas just as they appear in the magazine. 
Spacing can be important. To be safe, type in the 
listings exactly as they appear. 


Braces And Special Characters 
The exception to this typing rule is when you see 
the braces, such as “(ООУУМУ”. Anything within 
a set of braces is a special character or characters 
that cannot easily be listed on a printer. When 
you come across such a special statement, refer 
to "How To Type In COMPUTE/'s GAZETTE 
Programs." 


About DATA Statements 


Some programs contain a section or sections of 
DATA statements. These lines provide information 
needed by the program. Some DATA statements 
contain actual programs (called machine language); 
others contain graphics codes. These lines are espe- 
cially sensitive to errors. 

If a single number in any one DATA statement 
is mistyped, your machine could "lock ар,” or 
"crash." The keyboard and STOP key may seem 
"dead," and the screen may go blank. Don't panic 
— no damage is done. To regain control, you have 
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to turn off your computer, then turn it back on. 
This will erase whatever program was in memory, 
so always SAVE a copy of your program before you RUN 
it. If your computer crashes, you can LOAD the 
program and look for your mistake. 

Sometimes a mistyped DATA statement will 
cause an error message when the program is RUN. 
The error message may refer to the program line 
that READs the data. The error is still in the DATA 
statements, though. 


Get To Know Your Machine 


You should familiarize yourself with your com- 
puter before attempting to type in a program. 
Learn the statements you use to store and retrieve 
programs from tape or disk. You'll want to save a 
copy of your program, so that you won't have to 
type itin every time you want to use it. Learn to 
use your machine's editing functions. How do 
you change a line if you made a mistake? You can 
always retype the line, but you at least need to 
know how to backspace. Do you know how to 
enter inverse video, lowercase, and control char- 
acters? It's all explained in your computer's 
manuals. 


A Quick Review 

1. Type in the program a line at a time, in order. 
Press RETURN at the end of each line. Use back- 
space or the back arrow to correct mistakes. 

2. Check the line you've typed against the line in 
the magazine. You can check the entire program 
again if you get an error when you RUN the. 
program. 

3. Make sure you've entered statements in braces 
as the appropriate control key (see "How To Type 
COMPUTE!'s GAZETTE Programs" elsewhere in 
the magazine). 


We regret that we are not able to respond to individual 
inquiries about programs, products, or services appear- 
ing іп COMPUTE's GAZETTE for Commodore due to 
increasing publication activity. On those infrequent 
occasions when a published program contains a typo, 
the correction will appear in the magazine, usually 
within eight weeks. If you have specific questions atout 
items or programs which you've seen in COMPUTE/'s 
GAZETTE for Commodore, please send them to Gazette 
Feedback, P.O. Box 5406, Greensboro, NC 27403. 


How To Type In 
COMPUTE!’s GAZETTE Programs 


Many of the programs which are listed in COM- 
PUTE's GAZETTE contain special control characters 
(cursor control, color keys, inverse video, etc.). 
To make it easy to know exactly what to type when 
entering one of these programs into your com- 
puter, we have established the following listing 
conventions. 

Generally, any VIC-20 or Commodore 64 
program listings will contain words within braces 
which spell out any special characters: {DOWN} 
would mean to press the cursor down key. {5 
SPACES} would mean to press the space bar five 
times. 

To indicate that a key should be shifted (hold 
down the SHIFT key while pressing the other 
key), the key would be underlined in our listings. 
For example, S would mean to type the S key 
while holding the shift key. This would appear 
on your screen as a “heart” symbol. If you find 
an underlined key enclosed in braces (e.g., (10 
N Y), you should type the key as many times as 
indicated (in our example, you would enter ten 
shifted N's). 

If a key is enclosed in special brackets, Е, 
you should hold down the Commodore key while 
pressing the key inside the special brackets. (The 
Commodore key is the key in the lower left corner 
of the keyboard.) Again, if the key is preceded Бу 
a number, you should press the key as many times 
as necessary. 

Rarely, you'll see a solitary letter of the al- 
phabet enclosed in braces. These characters can 
be entered on the Commodore 64 by holding down 


the CTRL key while typing the letter in the braces. 
For example, {A} would indicate that you should 
press CTRL-A. You should never have to enter 
such a character on the VIC-20, but if you do, you 
would have to leave the quote mode (press RE- 
TURN and cursor back up to the position where 
the control character should go), press CTRL-9 
(RVS ON), the letter in braces, and then CTRL-0 
(RVS OFF). 

About the quote mode: You know that you can 
move the cursor around the screen with the CRSR 
keys. Sometimes a programmer will want to move 
the cursor under program control. That's why 
you see all the {LEFT}’s, (HOMEJ's, and 
{BLU}’s in our programs. The only way the com- 
puter can tell the difference between direct and 
programmed cursor control is the quote mode. 

Once you press the quote (the double quote, 
SHIFT-2), you are in the quote mode. If you type 
something and then try to change it by moving 
the cursor left, you'll only get a bunch of reverse- 
video lines. These are the symbols for cursor left. 
The only editing key that isn't programmable is 
the DEL key; you can still use DEL to back up and 
edit the line. Once you type another quote, you 
are out of quote mode. : 

You also go into quote mode when you IN- 
SerT spaces into a line. In any case, the easiest 
way to get out of quote mode is to just press RE- 
TURN. You'll then be out of quote mode and you 
can cursor up to the mistyped line and fix it. 

Use the following table when entering cursor 
and color control keys: 


When YouRead: Press: See: When You Read: Press: See: WhenYouRead: Press: See: 
{сів} SHIFT | | CLR/HOME {CYN} | e || a [^ E73 [s zs] E 
(HOME) [curimome | БЕЙ (ров) сєтє][5] ез е [25] в 
{uP} SHIFT LIST! (GRN) era || 6 {Fl ЕТЕР ГЕ 
{pown} [® case g | {BLU} 7 {F2 SHIFT fi P. | 
{LEFT} SHIFT Ee i {YEL} {ЕЗ me ЕН 
sen Боз вз E] o we] m 
{rvs} em] [9 #23 m ov в ІШ 
(ОРЕ) Гак) [о] Bi cs: ER re [зан[о | ЖМ 
eee ІРІ B кз o о 7) T 
(инт) Гек) [2 £53 EI ce (ЕНЕҢ Le m 
(RED) jis] сө Bl 
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The Automatic Proofreader 


“The Automatic Proofreader" will help you type in program 
listings from COMPUTE/s Gazette without typing mistakes. It 
is a short error-chécking program that hides itself in memory. 
When activated, it lets you know immediately after typing a 
line from a program listing if you have made a mistake. 
Please read these instructions carefully before typing any 
programs in COMPUTEY/'s Gazette. 


Preparing The Proofreader 


1. Using the listing below, type in the Proofreader. The 
same program works on both the VIC-20 and Commodore 
64. Be very careful when entering the DATA statements — 
don't type an l instead of a 1, an O instead of a 0, extra 
commas, etc. 

2. SAVE the Proofreader on tape or disk at least twice 
before running it for the first time. This is very important because 
the Proofreader erases this part of itself when you first type 
RUN. 

3. After the Proofreader is SAVEd, type RUN. It will 
check itself for typing errors in the DATA statements and 
warn you if there's a mistake. Correct any errors and SAVE 
the corrected version. Keep a copy in a safe place — you'll 
need it again and again, every time you enter a program 
from COMPUTE/'s Gazette. 

4. When a correct version of the Proofreader is RUN, it 
activates itself. You are now ready to enter a program listing. 
If you press RUN/STOP-RESTORE, the Proofreader is dis- 
abled. To reactivate it, just type the command SYS 886 and 
press RETURN. 


Using The Proofreader 


All VIC and 64 listings in COMPUTE/'s Gazette now have a 
checksum number appended to the end of each line, for example 
^:rem 123". Don't enter this statement when typing in a program. 
It is just for your information. The rem makes the number 
harmless if someone does type it in. It will, however, use up 
memory if you enter it, and it will confuse the Proofreader, 
even if you entered the rest of the line correctly. 

When you type in a line from a program listing and 
press RETURN, the Proofreader displays a number at the 
top of your screen. This checksum number must match the 
checksum number in the printed listing. If it doesn’t, it means 
you typed the line differently than the way it is listed. Im- 
mediately recheck your typing. Remember, don't type the 
rem statement with the checksum number; it is published 
only so you can check it against the number which appears 
on your screen. 

The Proofreader is not picky with spaces. It will not 
notice extra spaces or missing ones. This is for your conven- 
ience, since spacing is generally not important. But occasion- 
ally proper spacing is important, so be extra careful with 
spaces, since the Proofreader will catch practically everything 
else that can go wrong. 

There’s another thing to watch out for: if you enter the 
line by using abbreviations for commands, the checksum 
will not match up. But there is a way to make the Proofreader 
check it. After entering the line, LIST it. This eliminates the 
abbreviations. Then move the cursor up to the line and press 
RETURN. It should now match the checksum. You can check 
whole groups of lines this way. 


Special Tape SAVE Instructions 


When you're done typing a listing, you must disable the 
Proofreader before SAVEing the program on tape. Disable 
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the Proofreader by pressing RUN/STOP-RESTORE (hold 
down the RUN/STOP key and sharply hit the RESTORE 
key). This procedure is not necessary for disk SAVEs, but you 
must disable the Proofreader this way before a tape SAVE. 

SAVE to tape erases the Proofreader from memory, so 
you'll have to LOAD and RUN it again if you want to type 
another listing. SAVE to disk does not erase the Proofreader. 


Replace Original Proofreader 


If you typed in the original version of the Proofreader (Oc- 
tober 1983 issue), you should replace it with the improved 
version below. We added a POKE to the original version to 
protect it from being erased when you LOAD another pro- 
gram from tape. The POKE does protect the Proofreader, 
and the Proofreader itself was not affected. However, a 
quirk in the VIC-20's operating system means that programs 
typed in with the Proofreader and SAVEd on tape cannot be 
LOADed properly later. If you LOAD a program SAVEd 
while the Proofreader was in memory, you see 7LOAD 
ERROR. This applies only to VIC tape SAVEs (disk SAVEs 
work OK, and the quirk was fixed in the Commodore 64). 

If you have a program typed in with the original Proof- 
reader and SAVEd on tape, follow this special LOAD 
procedure: 

1. Turn the power off, then on. 

2. LOAD the program from tape (disregard the 7LOAD 
ERROR). 

3. Enter: POKE 45,PEEK(174):POKE 46, PEEK(175):CLR 

4. ReSAVE the program to tape. 

The program will LOAD fine in the future. We strongly 
recommend that you type in the new version of the Proof- 
reader and discard the old one. 


Automatic Proofreader For VIC And 64 
100 PRINT" {CLR} PLEASE WAIT...":FORI-886TO 
1918: READA: CK=CK+A: POKEL,A:NEXT 

IF CK<>17539 THEN PRINT" {DOWN}YOU MAD 
E АМ ERROR":PRINT"IN DATA STATEMENTS. 
":ЕМр 

SYS886:PRINT"ÍCLR](Í2 DOWN)PROOFREADER 
ACTIVATED.":NEW 

DATA 173,036,003,201,150,208 

DATA 001,096,141,151,003,173 

DATA 037,003,141,152,003,169 

DATA 150,141,036,003,169,003 

DATA 141,037,003,169,000,133 

DATA 254,096,032,087,241,133 

DATA 251,134,252,132,253,008 

DATA 201,013,240,017,201,032 

DATA 240,005,024,101,254,133 

DATA 254,165,251,166,252,164 

DATA 253,040,096,169,013,032 

DATA 210,255,165,214,141,251 

DATA 003,206,251,003,169,000 

DATA 133,216,169,019,032,210 

DATA 255,169,018,032,210,255 

DATA 169,058,032,210,255,166 

DATA 254,169,000,133,254,172 

988 DATA 151,003,192,087,208,006 

994 DATA 032,205,189,076,235,003 

1000 DATA 032,205,221,169,032,032 

1006 DATA 210,255,032,210,255,173 

1012 DATA 251,003,133,214,076,173 

1018 DATA 003 


110 


120 


886 
892 
898 
904 
910 
916 
922 
928 
934 
940 
946 
952 
958 
964 
970 
976 
982 


Castle Dungeon 


See article on page 52. 


BEFORE TYPING... 


Before typing in programs, please refer to "How 
To Туре СОМРОТЕ/5 Gazette Programs," “А 
Beginner's Guide To Typing In Programs," and 
% Те Automatic Proofreader’ that appear before 
the Program Listings. 


Program 1: 
Castle Dungeon—VIC Version, Loader 


1 PRINTCHR$(147):POKE52,29:POKE56, 29 : CLR 


:rem 153 

2 SV=36873:S1=SV+1 :S2=SV+2:S3=SV+3:V=SV+5 

:SB=SV+6 :rem 21 

3 READL,N:IFN--1THEN5 :rem 43 
4 FORJ=@TON: READS: POKEL+J ,S:NEXT:GOTO3 

:rem 52 

5 POKESB,1190:FORT-1TO590:NEXT srem 75 

6 FORM-1TO3:READA,B,C,D,E :rem 3 

7 POKES1,A:POKES2,B:POKES3,C:FORJ=15TOEST 
EP-1:POKEV,J:FORT-l1TOD:NEXT:NEXT:NEXT 

:rem 11 

10 FORT-1TO2000:NEXT :rem 232 

11 PRINTCHR$(147):FORT-1TO599:NEXT 

:rem 113 

12 POKESB,59:POKESV-4,242 :rem 248 

13 FORT-1TO500:NEXT :rem 190 


14 PRINTCHRS(144)"{UP}{RIGHT}FIND AND DEF 
USE THE" ^ — srem 224 
15 PRINT:PRINT" BOMBS HIDDEN IN THE" 
:rem 149 
16 PRINT:PRINT" DUNGEON. DON'T FALL" 
fs :rem 56 
17 PRINT:PRINT" INTO A PIT OR GET" 
:rem 233 
18 PRINT"ÍDOWN]ÍRIGHT]EATEN BY A BEAST." 
:rem 78 
19 PRINT" {DOWN} {RIGHT}PRESS THE 'L' KEY Е 
OR" n “гет 65 
20 PRINT"ÍRIGHT]A LEVITATION SPELL." 
:rem 62 
21 PRINT:PRINT"{RIGHT}YOU HAVE 5 MINUTES" 
cx :rem 19 
22 PRINT"ÍDOWN)ÍRIGHT]TO COMPLETE YOUR":P 
RINT"(DOWN)(RIGHT]QUEST." :rem 167 
23 POKE143,VAL(MID$(TI$,5,2)) :rem 91 
24 READCL: IFCL=-1THEN26 :rem 155 
25 FORJ=CLTOCL+7 : READCC: POKEJ , CC: NEXT: GOT 
024 :rem 139 
26 PRINT:PRINT"(HIT ANY KEY TO BEGIN)" 
F :rem 143 
27 СЕТА5:ІҒАб-""ТНЕҺМ27 :rem 245 


28 PRINT" {CLR}":FORJ=1T03:POKESV+J,@:NEXT 
:SS="LO"+CHRS (34) +"D"+CHRS(34)+",8:"+C 


HR$(131) :rem 192 
29 FOR I=1TOLEN(S$) :POKE63Ø+I,ASC(MID$ (S$ 
,І)):МЕХТ:РОКЕ198,І:ЕМр :rem 98 


30 DATA7878,20,114,64,73,73,32,110,85,73, 
110,85,64,73,112,64,75,85,64,73,85,73, 

:rem 14 

31 рАТА7900,20,93,32,93,93,32,93,93,93,93 
:93.,64,73,107.,64,32,93,32,93,93,93,93 

:rem 94 

32 DATA7922,20,113,64,75,74,64,115,125,74 


119 


46 


47 


48 


49 


.75,74,64,75,109,64,73,74,64,75,125,74 
o. 19 :rem 34 
DATA7792,17,85,64,73,112,64,110,85,64, 
75,64,114,64,112,32,32,112,64,75 

:rem 75 
DATA7814,16,93,32,32,1907,64,115,74,64, 
73,32,93,32,93,32,32,197,64 :rem 86 


DATA7836,17,74,64,75,75,32,125,85,64,7 
5,32,75,32,74,64,75,109,64,73 :геп 216 
DATA -1,-1 :rem 102 


DATAO,0,219,36,5,0,236,231,36,5,237,23 
1,226,100,0 :rem 13 
DATA7632,247,227,246,193,215,247,235,2 
35,7640,255,34,34,34,255,68,68,68 

:rem 162 
DATA7648,255,231,195,129,129,131,199,2 
55,7656,255,191,95,64,90,186,255,255 

:rem 76 
DATA7664,191,121,112,1,0,135,55,115,76 
72!, 255,239,247,231,195719Б,2317/25Б 

:rem 184 
DATA7424,255,255,255,255,255,255,255,2 
55,7440,255,255,255,129,129,255,255,25 
5,7432 :rem 205 
DATA255,255,255,255,255,255,255,255,74 
48,255,253,251,247,143,207,175,255 

:rem 210 
рАТА7456,191,121,112,1,0,135,55,115,74 
64,255,255,231,0,0,231,255,255,-1 

:rem 98 


Program 2: 
Castle Dungeon—VIC Version, Main 
Program 


1 


РЕ1МТСНЕ$(147);СНЕ$(144):51=36874:52=51 
+1:S3=S1+2:S4=S1+3:V=S1+4:SB=S1+5:CL=S1 
=5 :rem 255 
C=30726 :L=7686 : MW=59 : FC= : PC=33 : BT=8182 
: FV=15 : FP=@ : CS=@: POKESB, 8: R=37154:AF=@: 


КЕ=0 гет 215 
POKEV,15:POKECL, 255: FORJ=LTOL+5@5 :РОКЕЈ 
+C,@:POKEJ, 32:NEXT :rem 236 
READD: IFD=-1THEN6 :rem 161 
POKEL+D, MW: L=L+D:GOTO4 :rem 20 


L=7689 : FORJ=1TO9: READD: POKEL+D, 34:NEXT 
:rem 19 
FORJ=1T046 : READD: POKEL+D, 33:NEXT 
zrem 172 
FORJ-1TO3:GOSUB67:POKEB-*L,63:NEXT:rem 4 
FORJ=1T0O9:GOSUB67 : POKEB+L, 36: NEXT 
гет 11 
:rem 114 
:rem 5 


PC-32:GOSUB67 : POKEB+L, 61 
GOSUB67 : POKEB+L, 35 


FORJ-1TO3:GOSUB67: POKEB+L, 60:NEXT 
:rem 44 
GOSUB67 : M-B-L:TI$-"000000" :rem 106 


POKER, 127:JS-(PEEK(37137)AND28)OR(PEEK 
(37152) AND128) :JS-ABS(JS-1900)/4-7:POKE 


1525 21515) :rem 129 
ІЕТІ5>"000500"ТНЕМ48 :геп 248 
IFJS-6THENDR--22 :rem 153 
IFJS-5THENDR-22 :rem 108 
IFJS-3THENDR--1 :rem 101 
IFJS=11THENDR=1 :rem 104 
IFJS-7THENDR-9 :rem 52 
P=PEEK(DR+M) :ІЕР=59ТНЕМрА=0 :rem 106 


IFP=35THENCS=1 : POKEBT, 35: POKEBT+C,5:BT 
=BT+1 теш 123) 
IFP=36THEN78 :rem 136 
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58 


59 


[37] 


61 


62 


63 


64 
158 


IFP-34ANDKF-OTHENGOSUB73 :rem 211 
IFP=61THENKF=1 : POKE8181,61:POKE8181+C, 
5 :rem 240 
GETLS$ : IFL$="L"THENLS=1:GOSUB82 :rem 30 
IFP-60ANDLS«»1THENFP-1 :rem 59 
IFP=69ANDLS=1THENFP=2:PIT=M+DR:rem 114 
IFP=63THENAF=AF+1 : POKEBT, 63: POKEBT+C, 5 
: BT=BT+1 :GOSUB75 :rem 77 
IFDR=@ANDFC=1THEN44 :rem 86 
POKEM, 32 : POKEM+C, 7: POKEM+DR+C, 7 : POKEM+ 
DR, 58 :rem 80 
POKEM+DR+C-22, 7: POKEM+DR+C+22, 7: POKEM+ 
DR+C+1,7:POKEM+DR+C-1,7 :rem 37 
POKEM+DR+C-—23 , 7 : POKEM+DR+C+23, 7: POKEM+ 
DR+C+21,7:POKEM+DR+C-21,7:FC=l:rem 189 


IFP=350RP=61THENGOSUB7& :rem 159 
IFFP=1THENPOKEM+DR,69:GOTO76  :rem 217 
IFPS=1THENPOKEPIT, 60: PS=0 :rem 48 
IFFP=2THENPS=1 : FP= :rem 123 
15=0:ІЕрК=0ТНЕМ44 теш 218 


POKES3, 240 : FORT=1T0O2 :NEXT: POKES3, @ 
:rem 95 
IFDR=-22THENPOKEM+C+23,@:POKEM+C+22,0: 
POKEM+C+21,@:GOTO44 :rem 84 
IFDR=1 ТНЕМРОКЕМ+С-23,0: РОКЕМ+С-1,0:РОК 
EM+C+21,0:GOTO44 :rem 198 
ІЕРрК=-1 ТНЕМРОКЕМ+С-21,0: РОКЕМ+С+1,0:РО 
KEM-*C-*23,0:GOTO44 :rem 242 
РОКЕМ+С-23,0: РОКЕМ+С-22,0:РОКЕМ+С-21,0 


:rem 96 
М=М+рК:ЕС=1 : IFAF=3THEN46 :rem 138 
GOTO14 гел 7 


РОКЕ5В,27:ЕОЕТ-1Т03000:МЕХТ:РОКЕСІ.,240 
:PRINTCHR$(147):PRINT" YOU SAVED THE С 


ASTLE" :rem 12 
PRINT:PRINT:PRINT" PLAY AGAIN?":GOTO52 
сет 121 


РОКЕ54,22@0:ЕОЕ7=15ТО@5ТЕР-.5:РОКЕ5$В,12 
7:POKEV,J:FORT-1TO10:NEXT :rem 232 
РОКЕ5В,42:ҒОЕКТ-1Т010:МЕХТ:МЕХТ:РОКЕ54, 
Ø :rem 232 
FORT-1TO5009:NEXT :rem 239 
POKECL,240:PRINTCHR$(147):PRINT"PLAY A 


GAIN? Y/N" :rem 81 
GETAS : IFAS=""THEN52 :rem 241 
IFA$-"Y"THENRESTORE:GOTOl :rem 45 
IFAS$<>"N"THEN52 :rem 255 
END :rem 65 
ШАШСА НА ТӘНІН АДЕЛ quss Aso 
ИНИН ТЛ ЗА ӨЗ 32 d 2 21, 
T0702 :rem 250 
DADAMS 2H r Mileage А ОАО рО Д 
ЛЗ 2,1 ,„2,3,2,2/384,2,1,2,15,2;2, 
Пу Actas) :гет 18 
ШАА А Pap 65 ip al alia pale a akan als 
Mey Sp ӨРТЕНГЕН ТОР ЕТІН ОНЕРІН ӨРТІНЕ al 
dopo :rem 254 
БАТА 56/72/02 5 4257192 азза 1,2), 
UW all Al Wp ЛЛ А АЛО ДУЛ, 2УЛ, 12,2) 342 
О :rem 61 
ШАА ООН ІЗ 2,2122 432,1, 
У 2ТЕ ЗИВ АО 2r АЉ 
З :rem 254 
БАША 27 2r ir 4701512012779 6/52/1812 7 8] 9] 73197 
dieat oabedbodiesoe c dleabe sab a cabo ate nii muy 
8,176 :rem 173 
РАЗА Sie EDS UA ІЛЕ 9, 


pall pak, amaba at atus E :rem 252 

DATA67,72,102,127,140,240,280,316,419 
:rem 227 

DATA23,24,26,27,28,45,46,48,49,50,82,8 
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81 


82 


3,84,105,106,123,124,125,145,146,147,1 


62,163 :rem 154 
рАТА184,185,195,196,217,218,301,302,32 
3,324,338,339,360,361,441,442,443,445 
:rem 85 
DATA463,464,465,466,467 :rem 81 
B-INT(RND(1)*5901)49 :rem 169 
IFPEEK(B+L) <>PCTHEN67 :rem 213 
RETURN :rem 79 


POKES3, 185: POKES2, 202: POKES1 , 202 : FORJ= 
15TOOSTEP-.5:POKEV,J:NEXT:POKES3,210 
:rem 74 
POKES1, 232: POKES2, 232:FORJ=15TO@STEP-. 
Ø5 :POKEV , J : NEXT :rem 26 
FORJ=6TO2: POKES1+J,9:NEXT: POKEV, 15:RET 
URN :rem 126 
POKEM, 32: POKEM+DR, 37: POKES4, 130: FORJ-1 
5TODOSTEP-1:POKEV , J : NEXT : POKES4, Ø : POKEM 
*DR,34 :rem 179 
POKEM, 58: POKEV, 15 : DR=@: FORT-1TO509 : NEX 
T:RETURN :rem 188 
POKES3,220:FORT-1TO59:NEXT:POKES3,0 : RE 
TURN :rem 170 
FORJ-254TO180STEP-.5:POKES2,J:POKES3,J 
:POKEV,FV:FV-FV-.1:NEXT:POKES2,0:POKES 
3,0 :rem 23 
POKECL,240:PRINTCHR$(147):PRINT" YOU F 
ELL INTO А PIT":GOTO81 :rem 18 
FORG-190TO235:POKES4,G:FORT-1TO19:NEXT 
:NEXT:FORG-235TO220STEP-1:POKES4,G:FOR 
T-1TO29 :rem 72 
NEXT:NEXT:FORJ-15TO5STEP-.1:POKEV,J:NE 
XT:POKES4,0:POKEV,15:IFCS-1THEN24 
гет 131 
POKECL,240:PRINTCHR$(147):PRINT" YOU L 
OST TO А BEASTII" :rem 124 
POKESB, 27: FORT=1TO3989 : NEXT: GOTO51 
:rem 93 
FORI-£TO3:FORJ-£TO15:POKEV,J:N-1804I*J 
: POKES3,N:NEXTJ,1:POKES3,@:RETURN 
:rem 63 


Program 3: 
Castle Dungeon—64 Version 


Ø 


1 
5 


7) 
10 


GOSUB 5000 :С050В1500 :С050В200:6050В1000 
:С050В1100:С050В1300::6050В1010:гет 108 
GOSUB 1140 :rem 119 
GOSUB 3000:GOSUB 4000:GOSUB 1500:ТІ5-"0 
00000" :rem 18 
GOSUB 20:GOTO 7 :rem 195 


JOY=0 : JY=PEEK (56320) :J2=15-(JYAND15) :O 
NJ2 GOTO11,12,12,13,13,13,13,14:RETURN 
:rem 250 
JOY--40 : RETURN :rem 60 
JOY=4@ : RETURN :rem 16 
JOY--1: RETURN :rem 11 
JOY=1 : RETURN :rem 223 
GOSUB 10 :rem 67 
СЕТ AS:IFAS="L" THEN GOSUB 491:LEVITAT 
E--1 :rem 39 
IF ТІ5>"000300"ТНЕМ A$="YOUR TIME RAN 


{SPACE}OUT":GOTO 600 :rem 211 
TEMP=PEEK (MAN+JOY ) -40 : IFTEMP «ÜTHENLEVI 
ТАТЕ=0:60Т0170 :rem 70 


ON TEMP GOSUB 50,60,80,90,110,130,140, 
158,160:GOTO 170 :rem 166 
GOSUB 220:JOY-0:RETURN :rem 44 


IFNOTLEVITATETHENPOKEMAN,BLANK:GOSUB12 
5:А5-"ҮОУ FELL INTO А PIT":GOTO195 
:rem 21 


70 K=1:RETURN 


:rem 58 


80 KEY--1:POKE1303,43:POKE55575,1:GOSUB 4 


@1:RETURN 


:rem 233 


90 GOSUB 320:ІЕ NOT SWRD THEN A$-"YOU LOS 


T TO А BEAST":GOTO 600 :rem 40 
100 GOSUB 360:RETURN :rem 196 
105 GOSUB 220:FORTD-1TO209:NEXT:GOTO 600 

:rem 136 

110 BOMB-BOMB-1:POKE 1823+49*BOMB, 45:POKE 

56095+40*ВОМВ,1:ІЕ BOMB-Ü THEN 500 

:rem 212 

120 RETURN :rem 115 
125 GOSUB26% :GOSUB229 :FORTD-1TO209 : RETURN 
:rem 116 

130 RETURN :rem 116 
140 IF NOT KEY THEN GOSUB 220:JOY-0:RETUR 
N :rem 244 

150 RETURN :rem 118 


160 


176 


180 


190 
195 
196 
200 
201 


205 
210 


gll 
220 
230 
240 
250 


260 
270 


280 
290 


300 
310 
320 
330 
340 
350 
360 
370 
380 


390 


400 


SWRD--1:GOSUB 401:РОКЕ 1423,49:POKE55 
695,1:RETURN :rem 123 
ХН=0:РОКЕ MAN,BLANK:MAN-MAN-JOY:POKE 
(SPACE]MAN,FIGURE:IF К=1 THEN POKE MA 
N,42:K-1 :rem 62 
О=МАМ-1024 :Ү=ІМТ (0/40) :X-(Q-Y*40)*8:1I 
FX»255THENXH-INT(X/256):X-X-XH*256 
:rem 240 
Ү=Ү*8+32:РОКЕ HXSPRITE,XH:POKE LXSPRI 


TE,X:POKE YSPRITE,Y:BLANK-32 :rem 241 
IFK=1 THENK=@ : BLANK=42 гет 19 
RETURN :rem 128 
FOR I=1T04:READ NO(1,I),DUR(l1,I):NEXT 

:rem 120 
FOR I-1TO7:READ NO(2,1),NL(2,1),DUR(2 
,I):NEXT :rem 60 
RETURN :rem 119 
DATA 8,100,7,50,7,50,12,300,14 

:rem 105 
DATA 2,24,100,2,24,100,2,24,100,2,163 


,100,2,24,100,2,163,100,3,35 гет 235 
REM BUMP SOUND :rem 53 
POKE H1,15:POKE 11,10 :rem 66 


POKE VOLUME,15:POKE ATTDEC,20:POKE SU 
STREL,5:POKE WAVE,NOISE :rem 29 
FOR Тр-1Т010:МЕХТ:РОКЕ WAVE,NOISE-1:F 
OR TD-1TO2:NEXT:RETURN zrem 52 
REM FALLING SOUND :rem 2 
POKE ATTDEC,10:POKE SUSTREL,10:POKE V 
OLUME ,15 :rem 5 
FOR І-200 TO 100 STEP-1 :rem 103 
POKE Н1,І:РОКЕ Н2,100:РОКЕ WAVE,TRIAN 


GLE :rem 118 
FOR TD-1TO3:NEXT:POKE WAVE,TRIANGLE-1 
:FOR TD-1TO3:NEXT:NEXT I :rem 131 
RETURN :rem 116 
REM LION SOUND :rem 52 


POKE ATTDEC,100:POKE SUSTREL,1090:POKE 


VOLUME,15 :rem 98 
POKE Н1,2 :POKE Н2,10:РОКЕ WAVE,NOISE 
:FORTD-1TO1000:NEXT:POKE WAVE,NOISE-1 

:rem 251 
FORTD-1TO149:NEXT:RETURN :rem 76 
REM VICTORY SOUND :rem 54 


POKE ATTDEC,19@:POKE 505ТКЕІ,,100:РОКЕ 
VOLUME,15 :rem 102 
FORI- 1 TO 4:POKE H1,NO(1,1):POKE H2, 
100:РОКЕ WAVE, SAW :rem 5 
FOR TD-1 TO DUR(1,I):NEXT:POKE WAVE,S 
AW-1:FOR TD-1 TO DUR(1,I):NEXT:NEXT 
:rem 54 


RETURN :rem 116 


401 


402 


403 
410 


420 
430 
440 
450 
460 


470 


480 


485 


490 
491 


492 


493 


494 
500 


510 


520 


530 


600 


610 


620 


630 
7002 


710 
720 
730 
740 
1000 


1010 


1020 


1030 


POKE ATTDEC,14:POKE 505ТКЕІ,,201 
:rem 100 
POKE Н1,120:РОКЕ WAVE, SAW:FORTD=1T0O1ð 
Ø :NEXT: POKEWAVE, SAW-1 :rem 149 
FOR TD-1TO200:NEXT:RETURN :rem 76 
REM WIN SOUND AND OPENING SOUND 
:rem 92 
POKEVOLUME,15:POKE ATTDEC,17:POKE SUS 
TREL, 140 :rem 61 
FOR I= 1TO7:POKE H2,NO(2,I):POKE НІ,М 
L(2,I):POKE WAVE ,SAW :rem 6 
FOR TD=1TODUR(2,1) :NEXT: POKEWAVE, SAW- 
1:FORTD=1TODUR( 2,1) :NEXT:NEXT: RETURN 
:rem 78 
REM LOSE SOUND :rem 57 
POKE АТТРЕС,100:РОКЕ SUSTREL,120:POKE 
VOLUME,15 :rem 104 
POKE Н1,4:РОКЕ L1,48:POKE WAVE,SAW:FO 
ЕТр-1Т0500:МЕХТ:РОКЕ WAVE, SAW-1 
:rem 189 


FOR Тр-1Т0400:МЕХТ:РОКЕ Н1,2:РОКЕІ1,2 
4:POKEWAVE , SAW: FORTD-1TO900 :NEXT 

:геп 128 
POKEWAVE,SAW-1:FOR TD-1TO500:NEXT:RET 
URN :rem 106 
REM LEVITATE SOUND :rem 104 


POKE АТТрЕС,100:РОКЕ SUSTREL,250:POKE 
VOLUME, 15 ¿rem 112 
FOR A-10TO20:FOR В-20 TO27:POKE H1,A+ 
B:POKE L1,40:POKE WAVE, TRIANGLE 

:rem 200 


FOR TD-1 TO2 :NEXT:POKE WAVE,TRIANGLE 
-1:FOR TD=1 ТО 1:NEXT:NEXT:NEXT 

:rem 189 
RETURN :rem 129 


POKE53269,0:GOSUB 410:POKE BACKGROUND 
,l:FOR TD-1 TO 2000:МЕХТ :rem 35 


PRINT"(CLR]":POKE 251,50:PRINT"[BLK] 
(7 DOWN)Í11 RIGHT}CONGRATULATIONS 1" 
:rem 123 
PRINT"{2 DOWN}{9 RIGHT}YOU SAVED THE 
{SPACE }CASTLE" :rem 156 
сото 700 :rem 104 


POKE 53269,0:POKE BACKGROUND, :GOSUB 
(SPACE])450:FOR TD-1 ТО 2000:МЕХТ 

:rem 40 
PRINT"ÍCLR)Í8 DOWN)(BLK)"SPC(((40-(LE 
N(A$)))/2))AS$ :rem 41 
PRINT"{3 DOWN)(19 RIGHT}YOU LOST THE 
{SPACE}CASTLE!" :rem 187 
GOTO 710 :rem 196 


POKE251,@:FORTD=1T01599 :NEXT: PRINT" 
{2 DOWN}{14 RIGHT}THIS TIME" :rem 237 


FORTD-1TO599:NEXT:PRINT"(5 DOWN} 

{6 SPACES}HIT Y FOR FURTHER ADVENTURE 
s" :rem 220 
GET ANS$:IFANS$-""THEN720 :rem 151 


IF АМ55-"Ү"ТНЕМ POKE BACKGROUND,£:GOT 
05 :rem 75 
РОКЕ251,0:ЕМр :rem 207 


FORL-679T0703:READA: POKEL,A:NEXT:POK 
E806,167:POKE807,2:POKE251,40 : RETURN 
:rem 4@ 

PRINTCHR$(144)"{CLR} {5 DOWN} {WHT} 
{2 SPACES}FIND THE BOMBS HIDDEN IN T 
HE DUNGEON." :rem 66 
PRINT" {DOWN}{2 RIGHT}DON'T FALL INTO 
A PIT OR GET EATEN BY " :rem 75 
PRINT"{2 RIGHT}A BEAST. PRESS THE 'L 
KEY FOR A " :rem 198 
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1040 
1050 
1060 
1065 
1067 
1070 
1080 


1100 


1110 
1126 
1130 
1140 


1150 
1160 


1170 


1180 


1190 


1200 


1210 


1300 


1305 


1310 


1360 


1370 


1380 


1420 


1421 
1430 
1440 


1441 
1450 


1455 
1500 


1505 


PRINT"ÍDOWN]Í2 SPACES]LEVITATION 
LL. YOU HAVE 3 MINUTES" :rem 
PRINT"(ÍDOWN](2 SPACES}TO FULFILL 
R QUEST." :rem 104 
PRINT: PRINT:PRINT"{9 SPACES}(HIT BUT 
TON TO BEGIN)" :rem 64 
GOSUB 10:ІЕ 2Ү<>111 THEN 1065:геп 33 
RETURN :rem 174 
DATA72,138,72,152,72,166,251,240,8,1 
68,255,136, 208, 253, 282 :rem 81 
DATA 208,248,104,168,104,170,104,76, 
202,241 :rem 53 
СМ-14336:С5-53248:РОКЕ56334,РЕЕК(563 
34)AND254:POKE1, PEEK(1)AND251 


SPE 
205 
YOU 


:rem 254 
FORI=9T01923 : POKECM+I , PEEK(CS+I) :NEX 
m :rem 91 


FORI=CM+3 26TOCM+329+95 : READA: POKEI,A 
BS (A-255 ) :NEXT :rem 44 
POKELl,PEEK(1)OR4:POKE56334,PEEK(5633 
4)OR1:RETURN :rem 206 
POKE53272, (PEEK( 53272) AND240)OR14 
zrem 93 
RETURN :rem 167 
DATA247,227,246,193,215,247,235,235, 
255,34,34,34,255,68,68,68 :rem 7 
DATA2 55, 231, 195,129), 1297, 131, 199,255) 
255,191,95,64,90,186,255,255:rem 163 
DATATO WM L2 LL22 1707 135,55, 1157255,2 
SpA ДОЗД „КОБУЛ Ә Б ЗИ 255 :rem 19 


РАША2ЫБ,2Б5,255,255),255,255,255,25Б, 
2337 259; ADD ӘӘ ADS 215571255; 

:rem 57 
DATA255,255,255,255,255,255,255,255, 
255,253,251,247,143,207,175,255 

:rem 38 
РАТА191,121,112,1,0,135,55,115,255,2 
55, 23И. 2810 2550255 :rem 44 
PRINT CHR$(147):POKE BACKGROUND, ð :PO 
КЕ BRDER,ð :rem 24 
READ L,N:IFN=-1THEN GOSUB410:FORTD-1 
ТО2500 : NEXT : RETURN :rem 197 
FORJ=@TON: READS: POKEL+J , S:NEXT: GOTO] 
305 :rem 91 
DATA1234,17,85,64,73,112,64,110,85,6 
4,75,64,114,64,112,32,32,112,64,75 

:rem 160 
DATA1274,16,93,32,32,1907,64,115,74,6 
4,73,32,93,32,93,32,32,107,64 

:rem 174 
DATA1314,17,74,64,75,75,32,125,85,64 
,75,32,75,32,74,64,75,109,64,73 

:rem 45 
DATA1393,20,114,64,73,73,32,110,85,7 
3,110,85,64,73,112,64,75,85,64,73 


:rem 119 
DATA85,73 :rem 229 
DATA 110 :rem 116 


DATA1433,20,93,32,93,93,32,93,93,93, 
93,93,64,73,107,64,32,93,32,93,93 

:rem 142 
DATA93,93 :rem 232 
DATA1473,20,113,64,75,74,64,115,125, 
74,75,74,64,75,109,64,73,74,64,75,12 
5 :rem 83 
DATA 74,75,-1,-1 :rem @ 
WAVE-54276:NOISE-129:TRIANGLE-17:VOL 
=54296 : SOUND=54272 :ATTDEC=54277 

:rem 175 
BACKGROUND-53281:BRDER-53280:LEVITAT 
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1510 


1515 


1517 


1518 
1520 


3000 
3010 


3020 
3025 


3027 
3030 
3040 
3050 
3060 


3070 
3080 


3090 
3100 


3110 
3120 


3130 
3140 


3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3248 
3250 
32690 
3276 
3280 
3290 


3306 
3310 


Е=0 : SWRD=@ :КЕҮ=0 : BOMB=3 : LOIN=44 
srem 42 
SAW=33 : SUSTREL=54278 :H1=54273 :H2=542 
72 :FIGURE=4@ : BLANK=32 srem 211 
HXSPRITE=53264:LXSPRITE=53248:YSPRIT 
E=53249:POKE 53271,1:POKE 53277,1 
srem 192 
POKE 53269,1:ҒОКІ=832Т0896:РОКЕІ, 255 
:NEXT:POKE2040,13 :rem 163 
POKE 53287,1:POKE53275,1 :rem 48 
FOR I=SOUND TO SOUND+28:POKEI,@:NEXT 
:POKE VOLUME,15:RETURN :rem 243 
І-49152:ІЕ PEEK(I-*2)-216THENSYS49160 
:GOTO 3025 :rem 120 
READ A:IF A-256 THENSYS49160:GOTO 30 
25 :rem 116 
POKE I,A:I-I-1:GOTO 3010 :rem 70 
FORI-19024TO1962:POKEI,41:POKEI-*960,4 
1:NEXT :rem 51 
FORI-55296T056295:POKEI,0:NEXT:RETUR 
N :rem 147 
DATA 1,0,216,255,255,255,40 :геп 26 
DATA 0,169,41,133,251,169,40 :rem 81 
DATA 133,253,169,4,133,252,133 
:rem 182 
254,169,147,32,210,255,162 
:геп 239 
0,160,0,169,41 ,145,253 :геп 28 
200,192,39,208,249,24,165 
:rem 194 
253,105,40,133,253,144,2 
:rem 126 
230,254,232,224,23,208,229 
:rem 225 
160,0,169,4,145,251,169 :геп 84 
255,141,15,212,169,128,141 
:rem 230 
18,212,173,27,212,41,3 :геп 24 
133,173,170,10,168,24,185 
:rem 184 
0,192,101,251,133,170,185 
:rem 
1,192,101,252,133,171,24 
:rem 
185,0,192,101,170,133,253 
:rem 
185,1,192,101,171,133,254 
:rem 
160,0,177,253,201,41,208 
:rem 
18,138,145,253,169,32,145 
:rem 
170,165,253,133,251,165,254 
:rem 28 
133,252,76,62,192,232,138 
:rem 189 
41,3,197,173,208,189,177 
:rem 153 
251,170,169,32,145,251,224 
:rem 234 
4,240,26,138,10,168,162 :rem 83 
2,56,165,251,249,0,192  :rem 41 
133,251,165,252,249,1,192 
:rem 190 
133,252,202,208,238,76,62 
j :rem 191 
192,169,1,160,0,153,0 :геп 237 
216,153,0,217,153,0,218 :rem 72 
153,0,219,200,208,241,96,256 
:rem 73 


DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
174 
DATA 
122 
DATA 
178 
DATA 
182 
DATA : 
129 
DATA 
191 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


4000 REM CHARACTER PLACEMENTS :rem 33 
4010 T=32:Q=42:FOR I-1 TO 7:GOSUB 4100:МЕ 
xT :rem 147 

4020 Q=44:FOR I-1 TO 6:GOSUB 4100:МЕХТ 
:rem 101 

4030 Q=45:FOR I-1 TO 3:GOSUB 4190:NEXT 
:rem 100 

4040 Q=43:FOR I-1 TO 2:GOSUB 4100:МЕХТ 
:rem 98 
4050 Q=47:FOR I-1 TO 5 :rem 114 
4055 GOSUB 4100 ігеп 19 
4060 IF(PEEK(PLACE-4@) <>32)OR(PEEK(PLACE+ 
40) «»32) THENPOKEPLACE, BLANK: GOTO4055 
:rem 200 
4070 NEXT :rem 10 
4080 Q=49:GOSUB 4100 :rem 70 
4090 Q=FIGURE:GOSUB 4100:МАМ-РҺАСЕ:геп 84 
4095 Т=41:0=32:РОКІ=1ТО5Ӣ:С050В 4100:МЕХТ 
: RETURN :rem 231 
4100 X-(RND(1)*36-*42):Y-INT(RND(1)*2043):P 
L-Y*49-X-1024:IFPEEK(PLACE)«» TTHENA1 
00 :rem 50 
4110 POKE PLACE,Q:RETURN :rem 241 
5000 PRINT"{CLR} {11 DOWN}{14 RIGHT}{RVS}P 
LEASE WAIT" :rem 123 
5010 RETURN :rem 166 


Revenge Of Cyon 


Se 


e article on page 56. 


BEFORE TYPING... 


Before typing in programs, please refer to "How 
To Type СОМРОТЕ!ѕ Gazette Programs," "A 
Bepinner, s Guide To Typing In Programs,” and 
“The Automatic Proofreader” that appear before 
the Program Listings. 


Program 1: vic version 


1 


2 


3 
4 


NOW 


10 


11 


12 


DIMJS(2,2):POKE37139,0:DD-37154:PA-3713 
7:PB=37152:VS=" SECONDS" :rem 180 
FORI=ØTO2 : FORJ=ØTO2 :READJS (J , I ):NEXT:NE 
ХТ:ЕОВТ-0Т010:КЕАрВ5(Т):МЕХТ :rem 6 
СО-30720:5С-7680:ВСс-1:ВЕ-7955  :rem 233 
POKE36879, 255:PRINT"{CLR}{6 DOWN} 

{3 RIGHT}{RVS}{PUR}REVENGE OF CYON{BLU} 
{OFF}":PRINT"{5 DOWN}{RIGHT}SKILL LEVEL 


(5606207 :rem 163 
СЕТА5:ІҒАб-""ТНЕМ5 :rem 141 
D-VAL(A$):IFD«1ORD»6THEN4 :rem 134 


PRINT"(CLR]":POKE36879,8:A-32:A1-32:A2- 
32 :rem 51 
FORI-0TO220:POKE38796-«1,5:NEXT:POKE3877 
5,2:FORP-1TO20:POKE38778-*P, 5: NEXT: POKE3 
8767,6 :rem 54 
PRINT"[HOME]"BG:J-0:K-0:VB-0:POKE7708,4 
6: POKE7818, 46: POKE7738, 46: POKE7727,81:T 
Н-0:5-0 :rem 94 
POKE8976, 78: POKE8877,99: POKE8978,77:PO 
КЕ8101,77:РОКЕ8102,100:РОКЕ8103,78 
:rem 69 
POKE8104, 99: POKE8983, 78: POKE8984,99:PO 
КЕ8063,78:РОКЕ8064,77:РОКЕ8086,103:РОК 
Е8109,77 :rem 44 
РОКЕ8110,79:РОКЕ8089,79:РОКЕ8068,78:РО 
КЕ8069,99:РОКЕ8070,77:РОКЕ8093,80:РОКЕ 
8132,77 :rem 2 


13 


14 


T5 


16 


17 


18 


19 


45 
46 


РОКЕ8133,100:РОКЕ8134,100:РОКЕ8135,100 
:РОКЕ8136,100:РОКЕ8137,78:РОКЕ8115,103 
ігеп 211 
РОКЕ8094,78:РОКЕ8073,78:РОКЕ8074,77:РО 
КЕ8075,78:РОКЕ8112,108:РОКЕ8113,123 
:rem 122 
POKE8152,32:POKE8055,88: POKE8047,93:PO 
KE7782,46:POKE7901,46:POKE7691,46:POKE 
8025,87 :rem 241 
РОКЕЗ8745,4 геш 1 
POKE36878,15:FORL-1TO5:FORM-180TO235ST 
EP2:POKE36876,M:FORN-1TO19:NEXT:rem 37 
NEXT:POKE36876,0: FORM-1TO50:NEXT:NEXT: 
POKE36878,0:PRINT"ÍHOME])Í3 SPACES}" 
:rem 68 
FORN-1TO2:POKE8115-N,46:FORQ-1TO12:NE 
XT:POKE8115-N,32:NEXT:LK-0:TIS-"000000 
Ыы :rem 81 
РОКЕВЕ-УВ,А :rem 72 
POKEDD, 127:S3=-( (PEEK(PB)AND128)=@):PO 
KEDD, 255 :rem 72 
P=PEEK (PA) :S1=-((PAND8) =) :S2=((PAND16 
)=0) :50=((РАМр4)=0) :rem 127 
FR=-((PAND32)=@) :X=S2+S3:Y=S9+S1:IFLK> 
8164THEN60 :rem 11 
C=C+1:IFFR=1THENTH=TH+1 :rem 84 
РОКЕК+РО+СО,р1 :ІЕА1 <> 43ТНЕМРОКЕІК+РО, 
А1 :геп 206 
IFBG>6ANDJ <> 1 ТНЕМРОКЕК+РО+30726,р2:ІЕ 
A2<>43THENPOKELK+P0+6 ,A2 :rem 38 
IFK<>1THENLK=INT(RND(1)*15@)+SC:rem 20 
POKE8025,81:POKE36878,0: IFFR-lANDTH«-7 
THENGOSUB46 :rem 217 
K=1: PO=INT(RND(1)*D)+1:IFTH> 7THENFR=0 
:rem 180 
POKE36878,9:VB=VB+JS(X+1,Y+1)+(VB>229) 
*22-(VB«-264)*22 :rem 112 
A=PEEK(BE+VB) : POKEBE+VB, 43 : IFC=2THENLK 
=LK+22:C=0 :rem 118 
А1=РЕЕК (1К+РО) : D1=PEEK(LK+P0+CO) 


:rem 107 
IFBG>6ANDJ <> 1THENA2=PEEK(LK+P0+6 ) :D2=P 
EEK (LK+P0+387 26) :rem 194 
IFS<>1THENPOKELK+P0+CO, 7: POKELK+P0, 90 

:rem 50 
AS$="SHOTS":IFTH=1THENAS="SHOT " :rem 5 


PRINT" {HOME}"; :XC-BE-*VB:IFXC-LK-POANDFE 
R=1THENPRINTTH;A$:PRINTRIGHTS(TIS$,2)V$ 
:GOTO49 :rem 234 
IFBG>6ANDJ<>1THENPOKELK+P0+397 26,7: POK 
ELK+P0+6 , 9 :rem 205 
IFBG >6ANDJ <> LANDXC=LK+PO+6ANDFR=1THENP 
RINTTH; AS: PRINTRIGHTS (TIS$,2)V$:GOSUB41 


srem 111 
POKE8925, 87: IFJ=1ANDS=1 THENBG=BG+1:GOT 
047 :rem 210 
POKESC+OW, 32: QW=INT(RND(1)*176)+44:POK 


ESC+QW, 46 :GOTO2G :rem 230 
POKE36878,15:FORW-1TO6:FORY-220TO254:;P 
OKE36876,Y:NEXT:NEXT: POKELK+PO+CO+6,1 
:rem 177 
POKELK+PO0+6, 43 :rem 234 
FORZ=22TOLK-SCSTEP22 : G=PEEK(LK+PO-Z+6 ) 
: G1=PEEK ( LK+PO-Z+CO+6 ) : POKELK+PO-Z+CO+ 
бї? :rem 16@ 
POKELK+PO-Z+6, 98: FORH=1T0O7@ :NEXT: POKEL 
K+PO-Z+CO+6 , Gl : POKELK+PO-Z+6,G:NEXT 
:rem 128 
TH=@ :J=1: RETURN :rem 126 
POKE36878,15:POKE36876,244:FORFV-1TO70 
: NEXT: POKE36878, 0: RETURN :rem 21 
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IFBG«-11THEN7 :rem 196 
GOTO76 :rem 18 
IFBG»6ANDJ«»1THENPOKELK-*PO-*CO-*6,7:POKE 
LK+P0+6 , 98 :rem 193 
S-1:POKE36878,15:FORL-1TO15:FORM-250TO 
240STEP-1:POKE36876,M:NEXT :rem 147 
FORM-240TO250:POKE36876,M:NEXT: POKE368 
76,0:NEXT:POKE36878,0: POKELK+P0+CO,1:T 
Н=0 :rem 88 
POKELK+PO, 43 :rem 138 
FORZ=22TOLK-SCSTEP22 : G=PEEK(LK+PO-Z) :G 
1=PEEK(LK+PO-Z+CO) : POKELK+PO-Z+CO,7 
:rem 126 
POKELK+PO-Z, 99 : FORH=1TO79 :NEXT: POKELK+ 


PO-Z+CO,G1:POKELK+PO-Z,G:NEXT  :rem 94 
РОКЕЗ6876,0 :rem 3 
IFBG< 7THENBG=BG+1 : GOTO7 :rem 122 


IFJ=1ANDS=1 THENBG=BG+1 : I FBG<12THEN7 


:rem 120 
IFJ=1ANDS=1ANDBG=12THEN76 :rem 224 
GOTO37 :rem 17 
JH-JH-1:1FJH«3THEN7 :rem 83 


POKE36876,@: POKE36877, 220: FORL=15TO@ST 
EP-1: POKE36878,L:FORZN=1TO58  :rem 229 
POKE36879, ZN: NEXT: NEXT: POKE36877, 9: POK 
E36878,0 :rem 23 
PRINT"(CLR]":FORZN-8TO255:POKE36879,ZN 
:NEXT :rem 17 
PRINT"{2 DOWN}{3 RIGHT}{GRN}YOU SURVIV 
ED"BG-1:PRINT"{4 RIGHT}ATTACK WAVES.": 
GOSUB69 :rem 66 
PRINT"{2 DOWN}{RVS}{BLU}PLAY AGAIN?(Y, 


М) {OFF}" :rem 26 
GETAS : [FAS=""THEN66 :rem 251 
IFAS="Y"THENRUN :rem 95 
END :rem 69 
PRINT" {DOWN}{3 RIGHT}YOUR RANK IS:":PR 


INT" {DOWN}{4 RIGHT)"BS$(BG-1)"(GRN].":R 
ETURN :rem 209 
DATA-23,-22,-21,-1,0,1,21,22,23 

:rem 127 
DATA"PRIVATE{BLU}","{RED}CORPORAL {BLU} 
","{CYN}SERGEANT { BLU}" :rem 148 
DATA"{PUR}SECOND LIEUTENANT {BLU}"," 
{BLK}FIRST LIEUTENANT" :rem 184 
DATA" { RED}CAPTAIN{BLU}","{BLK}MAJOR 
{BLU}","{PUR}COLONEL{BLU}" :rem 210 
DATA" { PUR}GENERAL{BLU}","{BLK}FIELD MA 
RSHALL ( BLU] " :rem 89 
РАТА" { КЕр} МК. PRESIDENT" :rem 97 
PRINT" {CLR}{RED}YOU HAVE SAVED EARTH 
(2 SPACES}FROM THE ALIEN ATTACKIÍBLU]" 
:GOTO65 zrem 73 


Program 2: 64 Version 
100 CO=54272:FORT=COTOCO+24:POKET,@:NEXT 


110 


120 


130 


:rem 0 
SECONDS" 

:rem 44 
PRINT"(CLR)Í7 DOWN}"TAB(12)"{RVS} 
{RED}REVENGE OF CYON{OFF}" :rem 215 
PRINT"(2 DOWN}"TAB(11)"{BLU}(USE JOYS 
TECK HD) :rem 119 


POKE5328@,@:POKE53281,1:V$=" 


140 PRINT"(5 DOWN}{8 RIGHT}WHAT SKILL LEV 

EL (1-6)?" :rem 242 
150 GETAS:IFAS<"1"ORAS>"6"THEN15@ :rem 61 
160 D-VAL(A$):SC-1924 :rem 133 
170 POKECO+24,15:POKECO+5,17:POKECO+6, 248 

:РОКЕСО,100 :rem 73 
180 BG-1 :rem 144 
190 POKE53281,1:PRINT"(CLR]":POKE53281,0: 
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200 
210 


220 


230 
240 


250 


260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
3660 
378 
380 
390 
400 
410 
420 
430 
440 


450 
460 


470 


480 
490 


500 
510 
520 
530 


540 


550 


560 


570 


PRINT"(CYN])"BG:TI$-"009000" :rem 94 
LK=INT(RND(1)*15@)+SC :rem 137 
FORI=1T019:0=1064+INT(RND(1)*52@) :POK 


EO, 46: POKEO+CO,1:NEXT :rem 237 
РОКЕ1154,81:РОКЕ1154-С0,1 :rem 113 
PRINT"(13 DOWN}" :rem 67 


PRINT"{GRN}{6 DOWN)NE2 T3(UP)(LEFT) 
{RED}X{GRN} {DOWN} ETJM(DOWN]ME2 03 
N{UP}N{UP}NK2 TJ{UP}N{UP}NK2 TIM 
TDOWNJM{ DOWN }M{DOWN}M{DOWN}MK7 Q3JN 
{UP}N{UP}NM{DOWN}MK2 @3IN{UP}N{UP}N 
Brae "rem 43 
PRINT"(21 RIGHT]N(UP)EG3(UP) {LEFT} 
EG3NE2 T3(UP) (LEFT) (BLU) -(GRN] 

(DOWN) ET3MEQ3 {DOWN} (LEFT } EM3 

{DOWN}M" ^. :rem 83 
POKE1769, 87: POKE1769+CO, 4: POKE1887,12 
4:POKE1887+CO,5 :rem 249 
FORI-1890TO1887STEP-1:POKEI-«1,32:POKE 
I+CO+1,8:POKEI,124:POKEI+CO,5:rem 248 


FORJ-1TO80:NEXTJ,I :rem 124 

J-0:K-0 :rem 68 

X-20:Y-12:TH-0:81-0:A-32:A1-32:A2-32 
:rem 229 


FORW-1TO3:FORI-10TO200STEP10:POKECO-«1 

,I:POKECO-4,33:FORJ-1TOl10:NEXTJ,I,W 
:rem 64 

PRINT" {HOME}{DOWN}{4 SPACES}":rem 138 


POKECO+4, 32 :rem 71 
S=1524 :rem 243 
POKES,A srem 135 
P=PEEK (56320) AND15:Y=Y+((PAND1)=0) -(( 


PAND2 )=9) :X=X+((PAND4)=@) -((PAND8)-2) 


:rem 108 
FR=PEEK (56320) AND16: IFX<@THENX=39 

:rem 220 
IFY«OTHENY-O :rem 228 
IFX> 39THENX=0 srem 33 
IFY> 24THENY=24 srem 75 
IFLK»1983THEN610 :rem 148 
C=C+1:IFFR=OTHENTH=TH+1 srem 131 


POKELK+CO+PO,D1:IFA1<>43THENPOKELK+PO 
TAE :rem 254 
IFBG>6ANDJ <>1THENPOKELK+CO+P0+6 ,D2:I1F 
A2<>43THENPOKELK+P0+6 ,A2 :rem 71 
IFFPR-ÜANDTH«-7THENGOSUB1830 zrem 191 
PO-INT(RND(1)*D)41:1FTH»7THENFR-1 
:rem 241 
POKEOS, 32:NS=1064+INT(RND(1)*520):POK 
ENS , 46 :OS=NS :rem 200 
S=SC+X+Y* 40 :rem 87 
A=PEEK(S) : POKES, 43: 1FC=2THENLK=LK+4@: 


С=@ гет 193 
Al=PEEK (LK+PO) :D1=PEEK ( LK+PO+CO) 
:rem 155 


IFBG>6ANDJ <> 1THENA2=PEEK (LK+P0+6) :D2= 
PEEK (LK+P0+CO+6 ) :rem 227 
IFS1<>1THENPOKELK+P0+CO, 7: POKELK+PO, 9 
@ :гет 147 
А$="5НОТ5":1ЕТН=1ТНЕМА$="5НОТ " 

:гет 53 
PRINT" {HOME} {BLU}"; : IFS=LK+POANDFR=ØT 
HENPRINTTH;A$:PRINTRIGHTS$(TI$,2)V$:GO 
TO910 :rem 193 
IFBG>6ANDJd <> 1THENPOKELK+PO+CO+6 , 7: POK 
ELK+PO+6, 90 :rem 238 
IFBG>6ANDJ <> LANDS=LK+PO+6ANDFR=@8THENP 
RINTTH; A$: PRINTRIGHTS (TIS, 2) ; :GOSUB86 
[^] :rem 80 
IFPEEK(1769)-87THENPOKE1769,81:POKE17 
694-CO,4:GOTO590 :rem 92 


РОКЕ1769,87:РОКЕ1769-С0,4 srem 155 
IFJ-lANDS1-1THENBG-BG-1:GOTO1049 

:rem 188 
POKESC+QW, 32: QW-INT(RND(1)*3690)-80:PO 
KESC+QW, 46 :GOTO35@ :rem 73 
JH=JH+1:IFJH<3THEN1IG :rem 231 
РОКЕСО+1,10:РОКЕСО+4,129 :rem 100 
РОБІ =0ТО15 :ЕОКЈ=0ТО15:РОКЕ53280,1:РОК 
E53281,J:NEXTJ,I :rem 26 
РОКЕ53280,0:РОКЕ53281,0 :rem 239 
POKECO+4,128 :rem 130 
PRINT"(CLR])(7 DOWN}{CYN}{6 RIGHT)YOU 


{SPACE}SURVIVED"BG-1"ATTACK WAVES. 


(7 DOWN]" :rem 71 
ONBGGOSUB739,740,750,760,770,789,790, 
800,810,820,830 :rem 172 
PRINT"(YEL)Í5 DOWN)(11 RIGHT}PLAY AGA 
IN (Y/N)?" :rem 157 
GETA$:1IFA$-""THEN690 :rem 97 
IFA$-"Y"THENRUN :rem 137 
IFAS="N"THENEND :rem 97 
GOTO69B :rem 113 
PRINT"(PUR]Í13 RIGHT}SORRY, PRIVATE." 
: RETURN :rem 174 
PRINT"(PUR)Í19 RIGHT]NOT TOO BAD, COR 
PORAL.":RETURN :rem 170 
PRINT"(PUR)Í19 RIGHT}NICE GOING, SERG 
EANT.":RETURN :rem 139 
PRINT"{PUR}{6 RIGHT}WAY TO GO, SECOND 
LIEUTENANT.":RETURN :rem 11 
PRINT"{PUR}{6 RIGHT}YOU ARE NOW FIRST 
LIEUTENANT. " : RETURN :rem 75 
PRINT"ÍPUR)Í19 RIGHT}YOU ARE NOW A CA 
PTAIN.":RETURN :rem 128 
PRINT"{PUR}{11 RIGHT}YOU ARE NOW A MA 
JOR.":RETURN :rem 23 
PRINT"(PUR)Í9 RIGHT}YOU ARE NOW A COL 
ONEL.":RETURN :rem 104 
PRINT"(PUR)Í9 RIGHT}YOU ARE NOW A GEN 
ERAL.":RETURN :rem 91 
PRINT"{PUR}{6 RIGHT}YOU ARE NOW A FIE 
LD MARSHALL.":RETURN :rem 191 
PRINT"(PUR)Í19 RIGHT}HELLO, MR. PRESI 
DENT.";RETURN :rem 141 
PRINT"(CLR)ÍYEL)(Í8 DOWN}{RIGHT}YOU SA 


VED THE EARTH FROM ALIEN ATTACK!! 
{7 DOWN)" :rem 22 
сото 680 :rem 116 
FORF-1TO3:FORL-150TOl10QSTEP-1:POKECO- 
l,L:POKECO-4,17:NEXT:NEXT:POKECO-4,16 
:rem 185 
РКІМТУ$: POKELK+P0+CO+6, 1: POKELK+PO+6, 
43 srem 169 
FORZ=49TOLK-SCSTEP4Q@ : G=PEEK ( LK+PO-Z+6 
) :G1=PEEK (LK+PO-Z+CO+6 ) srem 7 
РОКЕК+РО-2+С0+6, 7: POKELK+PO-Z+6, 98:F 
ORH=1T07@ :NEXT: POKELK+PO-Z+C0+6,G1 


srem 237 
POKELK+PO-Z+6,G:NEXT: TH=@:J=1 : RETURN 
:rem 76 
IFBG >6ANDJ <> 1THENPOKELK+PO+CO+6, 7: POK 
ELK+P0+6 , 9G :rem 238 
51=1 :rem 141 


РОКТ=1ТОЗ:РОКТҮ=100Т0150:РОКЕСО+1,ТҮ: 
РОКЕСО+4,17 :МЕХТ:МЕХТ:РОКЕСО+4,16 


гет 237 
S1-21:POKELK-*PO-CO,1:TH-0:POKELK-*PO, 43 
гет 19 
FORZ=4@TOLK-SCSTEP49 : G=PEEK (LK+PO-Z) : 
G1=PEEK(LK+PO-Z+CO) :rem 67 


POKELK+PO-Z+CO, 7: POKELK+PO-Z, 99 : FORH= 


1T070:NEXT: POKELK+PO-Z+CO,G1 :rem 200 


970 POKELK+PO-Z,G:NEXT :rem 163 
980 IFBG<7THENBG=BG+1:GOTO199 srem 19 
990 IFJ-lANDS-1THENBG-BG-*1:IFBG«12THEN190 

:rem 17 
1000 IFJ-lANDS-1ANDBG-12THEN840 :rem 99 
1010 GOTO559 :rem 149 
1020 REM FIRE NOISE ігеп 75 


1030 РОКЕСО+1,200:РОКЕ СО+4,129:РОКЕСО+4, 

128:FORT-1TO1090:NEXT:RETURN :rem 140 
1040 ІЕВС<=11ТНЕМ190 тет 129 
1050 GOTO849 :rem 155 


Therapy 


See article on page 78. 


BEFORE TYPING... 


Before typing in programs, please refer to "How 
To Type COMPUTE" Gazette Programs," “А 
Beginner's Guide To Typing In Programs," and 
“The Automatic Proofreader” that appear before 
the Program Listings. 


Program I: Therapy—64 Version 


100 PRINTCHR$(142)CHR$(8)CHRS$( 39) : POKE532 
81,0:POKE53280,0:GOSUB1239 : POKE198, Ø 


:rem 188 

105 0=0:0р=0 trem 144 
110 PRINTCHR$(147);"HELLO. I'M DR. ROM. ү 
HAT'S YOUR МАМЕ?" irem 40 

115 GOSUB116@:A$=P1$:PRINT rem 39 


120 PRINT"IN ONE WORD, ";A$;",":PRINT"WHA 
T IS YOUR PROBLEM?":GOSUB1160:B$-P1$ 


:rem 14 

130 PRINT:PRINTB$;"...2?":PRINT:PRINT"CAN 
{SPACE}YOU TELL ME MORE?" гет 108 

148 GOSUB1160:GOSUB900 :rem 48 
150 PRINT:PRINT"I UNDERSTAND ";B$;" IS DI 
FFICULT":PRINT"FOR YOU." :rem 226 


160 GOSUB1160:IFP1$-"NO"THENPRINT"MAYBE I 
'M NOT QUITE UNDERSTANDING..." 

srem 111 

170 PRINT:PRINT"CAN YOU BE MORE SPECIFIC? 

HOW IS":PRINTBS;" А PROBLZM FOR YOU? 

^ гет 233 

180 GOSUB116ð :GOSUB9ØØ гет 52 

190 PRINT:PRINT"HOW DOES THIS MAKE YOU FE 

EL, ";A$;"?":GOSUB116@:CS=P1$ :rem 73 


200 PRINTCHR$(147) :rem 13 
205 PRINT"SO WHAT YOU'RE SAYING, ";A$;"," 
:PRINT"IS THAT YOUR PROBLEM WITH ";B$ 
:rem 80 

210 PRINT"IS MAKING YOU FEEL ";C$;".":GOS 
ПВ1160 :rem 161 


220 PRINT:PRINT"CAN YOU ELABORATE ON YOUR 
FEELINGS?" :GOSUB1169 : GOSUB989 

:rem 215 

230 PRINT:PRINT"HAS THIS BEEN A PROBLEM F 
OR YOU BEFORE? (YES OR NO)":GOSUB1169 
:rem 133 

240 ІЕР15<>"МО"ТНЕМ260 :rem 236 
250 PRINT"I SEE. THEN THIS NEW SITUATION 

{SPACE}MUST BE{2 SPACES}DIFFICULT FOR 


YOU.":GOTO320 :rem 81 
260 PRINT:PRINT"DID YOU ALSO FEEL ";C$;" 

{SPACE}THEN?" :rem 216 
270 GOSUB1169:PRINT"TELL МЕ MORE.":rem 16 
280 GOSUB1160:GOSUB900 :rem 53 
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290 


300 


310 


320 


330 
340 
343 
350 
360 
370 
380 
385 


390 


400 


410 


430 


440 


450 
460 


470 


480 


496 
500 


510 


520 


530 


540 


550 


560 


570 


580 


590 


600 


610 


620 


630 


PRINTCHR$(147)"I THINK WE HAVE SOMETH 
ING HERE. DO YOU{2 SPACES}SEE A PATTE 
RN?" :rem 236 
GOSUB1160:PRINT:PRINT"GO ON..." 
:rem 
GOSUB1160:PRINT:PRINT"THIS SOUNDS 
FICULT FOR YOU.":GOSUB1169 :rem 240 
PRINT:PRINT"DO YOU HAVE A PLAN TO DEA 
L WITH THIS{4 SPACES}CURRENT SITUATIO 


106 
DIF 


N?" :rem 156 
PRINT"YES OR М№О.":6050В1160 :rem 70 
ІЕР1$ <> "ҮЕЅ"ТНЕМ350 :rem 65 


PRINT"DO YOU THINK THIS PLAN WILL BE" 
:PRINT"SUCCESSFUL?":GOTO360  :rem 241 
PRINT:PRINT"WHY DON'T YOU MAKE A LIST 
OF POSSIBLE{3 SPACES}SOLUTIONS, THEN 


. :rem 107 
GOSUB1160:GOSUB900 :rem 52 


FORT-1TO509:NEXTT:PRINTCHR$(147) 


zrem 253 
PRINT"OKAY, WHAT SINGLE WORD BEST DES 
CRIBES" :rem 192 
PRINT"HOW YOU ARE FEELING RIGHT NOW?" 

:rem 223 
GOSUB1160:D$-P1$::PRINT:PRINTD$;"...? 
" :rem 224 
GOSUB1160:GOSUB900 : PRINT :rem 246 


PRINT"I'M THINKING OF DOING SOMETHING 
HERE. {3 SPACES)LET'S TRY SOME WORD"; 
:rem 142 
PRINT" ASSOCIATION":PRINT"AND SEE WHE 
RE IT LEADS US." :rem 183 
PRINT"WHAT DO YOU THINK(YES OR NO)?": 
GOSUB1169 :rem 236 
ІЕР15-"ҮЕ5"ТНЕМ490 :rem 11 
PRINT:PRINT"YOU SEEM TO ВЕ HAVING SOM 
E PROBLEMS WITHTHIS." :rem 122 
PRINT"CAN YOU TELL ME ABOUT IT?":GOSU 
В1160:ІЕР15-"МО"ТНЕМ840 :rem 46 
PRINT:PRINT"I REALLY THINK А WORD ASS 
OCIATION WOULD BE USEFUL RIGHT NOW." 
:rem 4 
PRINT:PRINT"LET'S DO IT." :rem 242 
PRINT"I'LL SAY A WORD. YOU SAY THE FI 
RST WORD THAT COMES TO YOUR MIND." 
:rem 133 
REM ***"WORD ASSOCIATION*** :rem 239 
FORT=1T0599@ :NEXTT: PRINTCHRS (147) ;"DO 
G":PRINT:GOSUB1169 :rem 204 
PRINT:PRINT"'"DRINK":PRINT:GOSUBl11660 


:rem 241 
PRINT:PRINT"HOME":PRINT:GOSUB1169:E$- 
P1$ :rem 40 
PRINT:PRINTB$:PRINT:GOSUB1160:FS$-P1$ 

:rem 35 
PRINT:PRINT"FEELINGS":PRINT:GOSUB1160 

:rem 201 
PRINT:PRINT"FUN":PRINT:GOSUB1169:GS$-P 
15 :rem 237 
PRINT: PRINT"MOM": PRINT: GOSUB1169:IS=P 
1$ :rem 240 
PRINT: PRINTCS : PRINT: GOSUB1169:J$=P1$ 

:rem 44 
FORT=1TO1909 : NEXTT: PRINTCHRS (147) 

:rem 37 
PRINT"I NOTICED WHEN I SAID HOME":PRI 


NT"THAT YOU SAID ";ES;'." :rem 39 
PRINT"DOES THIS SOMEHOW REFLECT HOW Y 
OU FEELÍ2 SPACES]ABOUT YOURSELF?" 
:rem 45 
PRINT"YES OR NO":GOSUB116@:IFP1$<>"YE 


164 COMPUTE!'s Gazette June 1984 


640 


650 


660 


670 


680 


690 


700 


710 


726 
730 
735 
740 
756 
760 
770 


780 


790 


791 
800 


810 
820 
830 


840 


850 
860 


870 


880 
890 
900 
910 
920 


5"ТНЕМ650 :геп 2 
PRINT:PRINT"IN WHAT WAY?":GOSUB1160:G 
OSUB900 :rem 2 
PRINT:PRINT"HOW DOES THIS RELATE TO Y 
OUR PROBLEM":PRINT"WITH ";B$ :rem 44 
GOSUB1160:GOSUB908:PRINT:PRINT"WHEN I 
SAID ";B$;" YOU SAID ";F$ :rem 136 
PRINT"WHAT DO YOU THINK THIS MEANS?": 
GOSUB1168:GOSUB900 гет 112 
PRINT:PRINT"ARE YOU DISTRESSED? DO YO 
U WANT А{7 SPACES]KLEENEX?":GOSUB1169 
:rem 28 
ІЕР1$ <> "ҮЕЅ"ТНЕМ710 :rem 73 
PRINT"HERE.":FORT-1TO19990:NEXTT 
:rem 206 
PRINT:PRINT"IT'S INTERESTING THAT WHE 
N I SAID FUN,{2 SPACES}YOU SAID ";G$ 


:rem 57 
GOSUB1160:GOSUB9900:PRINTCHR$(147); "HM 
MMM..." :rem 110 
PRINT:PRINT"IT SEEMS TO ME, ";AS;"," 

:rem 248 
PRINT"THAT THIS ALL TIES IN TO YOUR P 
ROBLEM" :rem 129 
PRINT"WITH ";B$ :rem 73 
GOSUB1160:GOTO779 :rem 245 
REM ***DREAMS*** :rem 57 


PRINT:PRINT"LET'S TRY A DIFFERENT":PR 
INT"APPROACH,";A$ :rem 145 
PRINT"TELL ME ABOUT ONE OF YOUR DREAM 
S.":GOSUB1160:GOSUB1040:IFQD-1THEN840 
:rem 246 
PRINT:PRINT"HOW WOULD YOU DESCRIBE YO 
UR FEELINGS{4 SPACES}IN THE DREAM?" 


:rem 171 
GOSUB116@ :rem 233 
PRINT:PRINT"DID THE DREAM HAVE ANYTHI 
NG TO DO WITH{2 SPACES}";I$  :rem 235 
GOSUB1168:FORT-1TO1008:NEXTT :rem 245 
REM ***ALL DONE*** :rem 121 


PRINT:PRINT"I THINK WE'RE MOVING IN A 
(15 SPACES}GOOD DIRECTION.":PRINT 

:rem 187 
PRINT"WE'VE DISCUSSED YOUR PROBLEM WI 
TH":PRINTB$;" AND HOW THIS MAKES YOU 

:rem 255 
PRINT"FEEL ";C$;";" :rem 230 
PRINT"AND DISCUSSED SOME POSSIBLE SOL 
UTIONS." :rem 124 
PRINT:PRINT"I SEE YOUR TIME IS UP. 
(18 SPACES}SEE YOU NEXT WEEK." 


:rem 189 
END :rem 119 
REM ***KEYWORDS*** :rem 249 
IFQ>@THENRETURN :rem 246 
FORJ=1TOLEN(P1$)-5 :rem 19 
IFMIDS$(P1$,J,5)«»" FUN "ТНЕМ930 

:rem 103 


925 PRINT:PRINT"WHAT ARE YOUR FEELINGS AB 
OUT FUN?":GOTO95@ :rem 148 
930 NEXTJ :rem 37 
940 RETURN :rem 125 
950 GOSUB1169:Q=1:PRINT:PRINT"THESE FEELI 
NGS SEEM IMPORTANT." :rem 141 
960 GOSUB1168:RETURN :rem 1 
1040 REM ***DREAM KEYWORD SEARCH*** 
:rem 233 
1050 FORJ-1TOLEN(P1$)-7 :rem 65 
1060 IFMIDS(P1$,J,7)-" DON'T "THEN1120 
:rem 243 
1070 NEXTJ :rem 81 


1080 
1090 


1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


1270 
1280 


1285 


1290 


1300 


1305 
1310 


1320 


1330 


1340 


1350 


1360 


1370 
1389 
1390 


1400 
1410 


1420 


1436 


1440 


FORJ-1TOLEN(P1$)-6 :rem 67 
IFMIDS$(P1$,J,6)-" DONT "ТНЕМ1120 


:rem 206 
NEXTJ :rem 75 
RETURN :rem 163 


PRINTCHR$(147)"WHY DO YOU SUPPOSE ТН 
AT IS?":GOSUB1169:GOSUB900 :rem 27 
PRINT"THIS MAY BE SOMETHING THAT WE' 


LL WANT" :rem 176 
PRINT"TO DISCUSS LATER. WE MAY FIND 
{SPACE}THAT IT" :rem 112 


PRINT"RELATES TO. YOUR PROBLEM WITH " 
; B$ :QD=1 : RETURN :rem 223 
REM ***COMMODORE PUNCTUATION INPUT** 


e :rem 55 
pl$z' :rem 239 
СЕТР25:ІЕР25-""ТНЕМ1180 :rem 57 
PRINTP2$; :rem 57 
IFP2$-CHR$(13)THENRETURN :rem 250 
Р1$=Р1$+Р2$ :rem 28 
бОТО118@ :rem 200 
REM ***INTRODUCTION*** :rem 72 


PRINTCHR$(147);TAB(15)"THERAPY" 

:rem 108 
PRINT:PRINT"WOULD YOU LIKE AN INTROD 
UCTION (Y/N)" :rem 101 
GETQŞ : IFO$<>"Y"ANDQS<>"N"THEN1 269 

:rem 191 
IFQ$="N"THENRETURN :rem 172 
PRINTCHR$(147);"WELCOME TO YOUR THER 
APY SESSION. DR. ROM"; :rem 31 
PRINT"WILL BE WITH YOU IN A "; 


:rem 172 
PRINT"MOMENT. WHILE YOU ARE WAITING, 
HERE ARE SOME HELPFUL" :rem 104 
PRINT"SUGGESTIONS ON HOW TO GET THE 
{SPACE}MOST OUT{2 SPACES}OF YOUR THE 
RAPY SESSION." :rem 109 
PRINT: PRINT :rem 29 


PRINT"AS WITH MOST THINGS IN LIFE, W 
ITH{7 SPACES}THERAPY, THE MORE YOU " 
? :rem 42 
PRINT"PUT IN, THE MORE{2 SPACES }YOU 

{SPACE}GET OUT. YOU MAY FIND IT FUN 

{SPACE}TO TRY AND TRIP"; :rem 228 
PRINT" UP THE DOCTOR; MAKE FUN OF HI 
S GRAMMAR, OR INSULT HIM MERCILESSLY 
ou :rem 175 
PRINT" {DOWN}HOWEVER, EVEN THOUGH THI 
S IS A PARLOR{3 SPACES}GAME, YOU MAY 


STILL FIND "; :rem 230 
PRINT"YOURSELF HAVINGINTERESTING, AN 
D EVEN IMPORTANT," :rem 51 


PRINT"INSIGHTS. THIS WILL ONLY HAPPE 
М IF YOU(2 SPACES}TRY YOUR BEST TO U 
TILIZE "; :rem 172 
PRINT"THIS SESSION ASAN ENJOYABLE WA 
Y TO MULL OVER THE" :rem 159 
PRINT"PROBLEMS AND PEEVES OF LIFE." 
:rem 127 
PRINT:PRINT:PRINTCHRS$(18)"HIT ANY KE 


Y TO CONTINUE" :rem 165 
POKE198,0:WAIT198,1 :rem 96 
PRINTCHR$(147):PRINT:PRINT"I SEE THE 
DOCTOR IS IN NOW." :rem 58 
PRINT:PRINT:PRINT"TO TALK TO DR. ROM 
, JUST TYPE IN YOUR" :rem 228 
PRINT"RESPONSE; AND HIT ";CHR$(18);" 


RETURN";CHR$(146);" WHEN YOU ARE" 
:rem 254 
PRINT"FINISHED.":PRINT:PRINT:PRINT"E 


NJOY YOUR THERAPY SESSION." :rem 238 
1450 PRINTSPC(240);CHR$(18); "HIT ANY KEY 
{SPACE}TO BEGIN" :rem 87 
1460 POKE198,0:WAIT198,1:RETURN :геп 128 


Before typing in programs, please refer to "How 
To Type СОМРОТЕ!ѕ Gazette Programs,” "A 
Beginner's Guide To Typing In Programs," and 
“The Automatic Proofreader” that appear before 
the Program Listings. 


BEFORE TYPING... 


Program 2: Therapy—VIC Version 


100 


105 
110 


TIS 


120 


130 


140 
150 


160 


170 


180 


190 


200 


205 


210 


220 


230 


240 
250 
260 
270 
280 
290 
300 
310 
320 


330 
340 


PRINTCHR$(142)CHR$(8)CHR$(39) : POKE368 
79,8:GOSUB12390:POKE198,0 :rem 11 
Q-0:0D-0 :rem 144 
PRINTCHR$(147);"HELLO. I'M DR. ROM. 
{3 SPACES}WHAT'S YOUR NAME?"  :rem 40 
GOSUB1169:A$-Pl1$:PRINT :rem 39 
PRINT"IN ONE WORD, ";A$;",":PRINT"WHA 
T IS YOUR PROBLEM?":GOSUB1160:B$-Pl1$ 


:rem 14 
PRINT:PRINTB$;"...?":PRINT:PRINT"CAN 
{SPACE}YOU TELL ME MORE?" :rem 108 
GOSUB1169:GOSUB900 :rem 48 
PRINT:PRINT"I UNDERSTAND ";B$:PRINT"I 
S DIFFICULT FOR YOU." :rem 99 


GOSUB1169:IFP1$-"NO"THENPRINT"MAYBE I 
"М NOT QUITE{3 SPACES}UNDERSTANDING.. 
5ш :rem 111 
PRINT:PRINT"CAN YOU BE MORE{7 SPACES} 
SPECIFIC? HOW IS":PRINTB$;" A PROBLEM 
TU :rem 5 
GOSUB116@ : GOSUB9BB :rem 52 
PRINT:PRINT"HOW DOES THIS MAKE YOUFEE 
L, ";A$;"?":GOSUB1160:CS$-P1$ :rem 73 
PRINTCHR$(147) :rem 13 
PRINT"SO WHAT YOU'RE SAYING,";AS$;", I 
S THAT YOUR":PRINT"PROBLEM WITH ";BS 


:rem 80 
PRINT"IS MAKING YOU FEEL ":PRINTCS;". 
":6050В1160 :rem 45 


PRINT:PRINT"CAN YOU ELABORATE ON 
(2 SPACES}YOUR FEELINGS?":GOSUBl1169:G 


050В900 :rem 215 
PRINT:PRINT"HAS THIS BEEN A(7 SPACES] 
PROBLEM FOR YOU BEFORE? (YES OR NO)": 
GOSUB1169 zrem 133 
ІЕР1$<> "МО"ТНЕМ260 :rem 236 
PRINT"I SEE. THEN THIS NEW{2 SPACES}S 


ITUATION MUST BE{5 SPACES}DIFFICULT F 
OR YOU.":GOTO329 :rem 81 
PRINT:PRINT"DID YOU ALSO FEEL":PRINTC 
$;" THEN?" :rem 100 
GOSUB1160:PRINT"TELL ME MORE.":rem 16 
GOSUB1160:GOSUB9060 :rem 53 
PRINTCHR$(147)"I THINK WE HAVE 
(7 SPACES}SOMETHING HERE. DO 
{4 SPACES}YOU SEE A PATTERN?":rem 236 
GOSUB1160:PRINT:PRINT"GO ON..." 
:rem 106 
GOSUB1160:PRINT"THIS SOUNDS DIFFICULT 
FOR YOU.":GOSUB1169 :rem 41 
PRINT:PRINT"DO YOU HAVE A PLAN TO DEA 
L WITH THIS CURRENTSITUATION?"; 
:rem 215 
PRINT" (YES OR NO)":GOSUB1160:rem 105 
IFPl$«»"YES"THEN350 :rem 65 
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343 


350 


360 


370 


380 


385 


390 


400 


410 


430 


440 


450 


460 


470 


480 


499 
500 


510 
520 
530 
540 
550 
566 
570 
580 
590 
600 
610 


620 


630 


640 


650 


660 
678 


680 


PRINT"DO YOU THINK THIS PLANWILL BE S 
UCCESSFUL?":COTO366 :rem 236 
PRINT:PRINT"WHY DON'T YOU MAKE A 

(2 SPACES}LIST. OF POSSIBLE{6 SPACES]S 
OLUTIONS, THEN." :rem 107 
GOSUB1160:GOSUB900 :rem 52 
FORT-1TO508 :NEXTT: PRINTCHRS (147) 


гет 253 
PRINT"OKAY, WHAT SINGLE WORDBEST DESC 
RIBES"; :rem 251 
PRINT" HOW YOUARE FEELING RIGHT NOW?" 

:rem 223 
GOSUB116%:DS=P1$::PRINT:PRINTDS;"...? 
Д :rem 224 
С0О50В1160:6050В900:РКІМТ :rem 246 


PRINT"I'M THINKING OF DOING SOMETHING 
HERE.":PRINT"LET'S TRY SOME WORD" 
:rem 94 
PRINT"ASSOCIATION AND SEE{3 SPACES]WH 
ERE IT LEADS US." :rem 172 
PRINT"WHAT DO YOU ТНІМКІ5 SPACES}(YES 
OR МО) ?":6080В1160 :rem 236 
ІЕР15-"ҮЕ5"ТНЕМ490 :rem 11 
PRINT:PRINT"YOU SEEM ТО BE HAVING SOM 
E PROBLEMS WITH{4 SPACES}THIS." 
rem 122 
PRINT"CAN YOU TELL ME ABOUT IT?":GOSU 
В1160:ІЕРІ15-"МО"ТНЕМ840 :rem 46 
PRINT:PRINT"I REALLY THINK А WORD ASS 
OCIATION WOULD ВЕ(2 SPACES}USEFUL RIG 
HT NOW." :rem 4 
PRINT:PRINT"LET'S DO IT." :rem 242 
PRINT"I'LL SAY A WORD. YOUÍ2 SPACES]S 
AY THE FIRST WORD{4 SPACES}THAT COMES 
TO YOUR{4 SPACES]MIND." :rem 133 
REM ***WORD ASSOCIATION*** :rem 239 
FORT-1TO5900:NEXTT:PRINTCHR$(147);"DO 
G":PRINT:GOSUB1169 :rem 204 
PRINT:PRINT"'"DRINK":PRINT:GOSUB1160 


:rem 241 
PRINT:PRINT"HOME":PRINT:GOSUB1169:E$- 
P1$ :rem 40 
PRINT:PRINTB$:PRINT:GOSUB1160:F$-P1$ 

:rem 35 
PRINT: PRINT""FEELINGS":PRINT:GOSUB1169 

:rem 201 
PRINT:PRINT"FUN":PRINT:GOSUB1160:G$-P 
15 :rem 237 
PRINT:PRINT"MOM":PRINT:GOSUB1160:IS$-P 
15 :rem 240 
PRINT:PRINTC$:PRINT:GOSUB1160:J$-P1$ 

:rem 44 
FORT-1TO10909:NEXTT:PRINTCHR$(147) 
:rem 37 


PRINT"I NOTICED WHEN I SAID HOME THAT 
YOU SAID":PRINTES;"." :rem 168 
PRINT"DOES THIS SOMEHOW{5 SPACES]REFL 
ECT HOW YOU FEEL{2 SPACES}ABOUT YOURS 
ELF?" :rem 45 
PRINT"YES OR NO":GOSUB1169:IFPl1$«»"YE 
5"ТНЕМ650 :rem 2 
PRINT:PRINT"IN WHAT WAY?":GOSUB1160:G 
OSUB9ØØ :rem 2 
PRINT:PRINT"HOW DOES THIS RELATE 
{2 SPACES}TO YOUR PROBLEM WITH":PRINT 
B$ :rem 173 
GOSUB1160:GOSUB9900:PRINT:PRINT"WHEN I 
SAID ";B$:PRINT"YOU SAID ";F$:rem 20 
PRINT"WHAT DO YOU THINK THISMEANS?":G 
050В1160:605/В900 :rem 112 
PRINT:PRINT"ARE YOU DISTRESSED? DOYOU 
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698 
709 


710 


720 
730 
735 
740 
750 
760 
778 


780 


790 


800 


810 
820 
830 


840 


850 
860 


870 


880 
890 
900 
910 
920 


925 


930 
940 
950 


960 
1040 


1050 
1060 


1070 
1080 
1090 
1100 
TET 
1120 
1130 


1140 


WANT А KLEENEX?":GOSUBI11669 :rem 28 
IFPl$«»"YES"THEN710 :rem 73 
PRINT"HERE.":FORT-1TO1000:NEXTT 

:rem 206 
PRINT:PRINT"IT'S INTERESTING THAT WHE 
N I SAID FUN,Í2 SPACES}YOU SAID ";65 


:rem 57 
GOSUB116@: GOSUB9@@ : PRINTCHRS (147) ; "НМ 
MMM..." :rem 119 
PRINT:PRINT"IT SEEMS TO ME, ";A$;"," 

:rem 248 
PRINT"THAT THIS ALL TIES IN TO YOUR P 
ROBLEM" :rem 129 
PRINT"WITH ";B$ :rem 73 
GOSUB1160:GOTO778 :rem 245 
REM ***DREAMS*** :rem 57 


PRINT:PRINT"LET'S TRY A DIFFERENT":PR 
INT"APPROACH,";A$ :rem 145 
PRINT"TELL ME ABOUT ONE OF{2 SPACES]Y 
OUR DREAMS.":GOSUB1160:GOSUB19040:1FQD 
=1ТНЕМ84@ :гет 246 
PRINT:PRINT"HOW WOULD YOU DESCRIBEYOU 
R FEELINGS IN THE{2 SPACES]DREAM?":GO 
50В1160 :rem 45 
PRINT:PRINT"DID THE DREAM HAVE 
(4 SPACES}ANYTHING TO DO WITH":PRINTI 
$ :rem 119 
СО5$ОВ116@:ЕОВТ=1ТО1@@@:МЕХТТ :rem 245 
REM ***ALL DONE*** :rem 121 
PRINT:PRINT"{CLR}I THINK WE'RE MOVING 
(2 SPACES)IN A GOOD DIRECTION.":PRINT 
:rem 78 


PRINT"WE'VE DISCUSSED YOUR{2 SPACES]P 
ROBLEM WITH":PRINTB$:PRINT"AND HOW ТН 
IS MAKES YOU" :rem 173 
PRINT"FEEL ";C$;";" :rem 230 
PRINT"AND DISCUSSED SOME{4 SPACES}POS 
SIBLE SOLUTIONS." :rem 124 
PRINT:PRINT"I SEE YOUR TIME IS UP.SEE 


YOU NEXT WEEK." :rem 189 
END геш 119 
REM ***KEYWORDS*** :rem 249 
IFQ>@THENRETURN :rem 246 
FORJ-1TOLEN(P1$)-5 :rem 19 


IFMIDS(P1$,J,5)<>" FUN "THEN930 
:rem 103 


PRINT:PRINT"WHAT ARE YOUR{9 SPACES}FE 


ELINGS ABOUT FUN?":GOTO95@ :rem 148 
NEXTJ :rem 37 
RETURN :rem 125 
GOSUB1169:Q=1:PRINT:PRINT"THESE FEELI 


NGS SEEMÍ3 SPACES}IMPORTANT.":rem 141 


GOSUB1168:RETURN :rem 1 
REM ***DREAM KEYWORD SEARCH*** 
:rem 233 
FORJ-1TOLEN(P1$)-7 :rem 65 
IFMIDS(P1$,J,7)=" DON'T "ТНЕМ1120 
:rem 243 
NEXTJ :rem 81 
FORJ-1TOLEN(P1$)-6 :rem 67 


ІЕМІр5(Р15,7,6)-" DONT "THEN1129 
:rem 206 

NEXTJ :rem 75 

RETURN :rem 163 


PRINTCHR$(147)"WHY DO YOU SUPPOSE TH 
AT IS?":GOSUBl1160:GOSUB900 :rem 27 
PRINT"THIS MAY BE SOMETHING THAT WE' 
LL WANT" :rem 176 
PRINT"TO DISCUSS LATER. WE MAY FIND 
{SPACE}THAT IT" :rem 112 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


1250 
1260 
1270 


1280 


1285 


1290 


1300 


1305 
1310 


1320 


1330 


1332 


1335 
1340 


1350 


1360 


1370 


1386 
1390 


1400 
1410 


1420 


1430 


1440 


1450 


PRINT"RELATES ТО YOUR PROBLEM WITH " 


; B$ :QD=1 : RETURN :rem 223 
REM ***COMMODORE PUNCTUATION INPUT** 
m :rem 55 
Р1$="" :гет 239 
СбЕТР25:ІЕР25-""ТНЕМ1180 :rem 57 
PRINTP2$; :rem 57 
IFP2$-CHR$(13)THENRETURN :rem 250 
Р1$=Р1$+Р2$ :rem 28 
сото11в8@ :rem 200 
REM ***INTRODUCTION*** :rem 72 
PRINTCHR$(147);TAB(6)"THERAPY" 

:rem 60 


PRINT:PRINT"WOULD YOU LIKE AN 
(5 SPACES}INTRODUCTION (Y/N)" 


:rem 101 
GETQ$:IFQ$«»"Y"ANDQS$«»"N'THEN1260 

:rem 191 
IFQ$="N"THENRETURN :rem 172 


PRINTCHR$(147);"WELCOME TO YOUR 
{7 SPACES}THERAPY SESSION.{6 SPACES} 


DR. ROM"; :rem 31 
PRINT" WILL BE WITHÍ2 SPACES}YOU IN 
{SPACE}A "; :rem 172 


PRINT"MOMENT. WHILEYOU ARE WAITING, 
{SPACE}HERE ARE SOME HELPFUL" 

:rem 104 
PRINT"SUGGESTIONS ON HOW TO GET THE 
{SPACE}MOST OUT OF{3 SPACES}YOUR THE 
RAPY SESSION." :rem 109 
PRINT: PRINT :rem 29 
PRINT"AS WITH MOST THINGS INLIFE, WI 
TH THERAPY,{3 SPACES}THE MORE YOU "; 

:rem 42 

PRINT"PUT IN,{2 SPACES}THE MORE 
{2 SPACES}YOU GET OUT.YOU MAY FIND I 
T FUN TOTRY AND TRIP "; :rem 228 
PRINT"UP THE{3 SPACES}DOCTOR; MAKE F 
UN OF{3 SPACES}HIS GRAMMAR, OR INSUL 


THIM MERCILESSLY." :rem 175 

PRINT: PRINTCHRS(18)"HIT ANY KEY" 
:rem 210 

POKE198,0:WAIT198,1 :rem 103 


PRINT" {CLR} {DOWN}HOWEVER, EVEN THOUG 
H{2 SPACES}THIS IS A PARLOR 
{6 SPACES}GAME, YOU MAY STILL 
{3 SPACES}FIND "; :rem 121 
PRINT"YOURSELF HAVING{2 SPACES} INTER 
ESTING, AND EVEN IMPORTANT, "; 

:rem 110 
PRINT" INSIGHTS.{2 SPACES}THIS WILL 
{SPACE}ONLY HAPPEN IF YOUÍ2 SPACES}T 
RY YOUR BEST TO UTILIZE "; :rem 172 
PRINT"THIS{7 SPACES}SESSION AS AN 
{9 SPACES}ENJOYABLE WAY TO MULL OVER 


THE "; :rem 218 
PRINT"PROBLEMS AND PEEVES OF LIFE." 
:rem 127 
PRINT: PRINTCHRS(18)"HIT ANY KEY" 
:rem 214 
POKE198,0:WAIT198,1 :rem 96 
PRINTCHR$(147):PRINT"I SEE THE росто 
R IS IN NOW." :rem 115 


PRINT:PRINT"TO TALK TO DR. ROM, 

{3 SPACES]JUST ТҮРЕ IN YOUR" :rem 29 
PRINT"RESPONSE; AND HIT ";CHR$(18):P 
RINT"RETURN";CHR$(146);" WHEN YOU AR 
E" :rem 138 
PRINT"FINISHED.":PRINT:PRINT:PRINT"E 
NJOY YOUR THERAPY SESSION." :rem 238 
PRINT:PRINTCHR$(18);" HIT ANY KEY TO 


BEGIN" :rem 22 
1460 POKE198,0:WAIT198,1:RETURN :rem 128 


Spelling Critter 


See article on page 82. 


BEFORE TYPING... 


Before typing in programs, please refer to “How 
To Type COMPUTE" Gazette Programs," “А 
peginner Guide To Typing In Programs,” and 
“The Automatic Proofreader” that appear before 
the Program Listings. 


Program 1: 
Spelling Critter—VIC Version 


2 PRINT"{CLR}{4 DOWN} {2 RIGHT}SPELLING CR 


ITTER" :rem 143 
15 PRINT"(190 DOWN}{2 RIGHT}ONE MOMENT PLE 
ASE" :rem 135 
20 РОКЕЗ6869,255 :rem 105 
21 POKES52,28:POKE56,28:CLR :rem 20 
22 ЕОКІ-7168Т07679:РОКЕІ,РЕЕК(1-25600):МЕ 
xT :rem 101 

23 FORC-7168TO7175:READA:POKEC,A:NEXT 
:rem 66 

24 FORC-7664TO7671:READA:POKEC,A:NEXT 
:rem 69 

25 FORC-7656TO7663:READA: POKEC,A:NEXT 
:rem 72 
30 DATA96,128,77,63,31,13,90,0 :rem 186 
31 DATA3,52,184,240,240,184,52,3 :rem 76 
32 DATA2,54,58,242,242,58,54,0 :rem 239 
50 DIMW$(59) :rem 112 
60 PRINT"(CLR]" :rem 202 
61 POKE36878,15 :rem 56 
70 PRINT"HI,WHAT IS YOUR" :rem 20 
75 INPUT"NAME";NS :rem 14 
80 GOSUB5ØØØ :rem 173 
90 W=0:R=0:2=0 :rem 39 
100 FORB=1TON :rem 25 

120 PRINT"{CLR}{2 DOWN}{5 RIGHT]"WS(B) 
:rem 184 
140 FORT-1TO1009:NEXT :rem 27 
160 PRINT" {CLR}":as="" :rem 27 
165 PRINT"{RED}{RVS}{2 SPACES}TO REVIEW Т 
HE WORDÍ2 SPACES]" :rem 45 
166 PRINT"{RVS}{2 SPACES}TYPE ? AND RETUR 
МІЗ SPACES) (BLU]" :rem 211 
180 PRINT"{3 DOWN}HOW DO YOU SPELL":PRINT 
:rem 98 
190 INPUT"THAT WORD";AS :rem 123 
195 IFA$-""ORLEN(A$)-QTHEN169 :rem 125 
200 IFAS="THAT WORD"THENGOSUB6980 :GOTO16D 
:rem 243 
210 IFAS="?"ORAS="/"THEN1 20 :rem 191 

220 IFA$-W$(B)THENGOSUB7099 :GOTO499 

:rem 80 
230 GOSUB8ØØØ :rem 221 
240 PRINT"{CLR}{5 DOWN}I'M SORRY, "N$:PRIN 
T :rem 16 
260 PRINT"THAT IS WRONG":PRINT :rem 138 
270 POKE36874,223 :rem 151 
274 FORT-1TO509:NEXT :rem 247 
275 РОКЕЗ6874,0 :rem 53 
280 PRINT"THE CORRECT WAY IS:" :rem 37 
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300 PRINT"Í3 DOWN}{5 RIGHT}{BLK}"ws$(B)" 
{BLU}" :rem 41 
320 W=W+l :rem 220 
340 GOTO459 :rem 105 
400 PRINT"{2 DOWN}THAT IS RIGHT" :rem 210 
420 PRINT"(RED])ÍDOWN]VERY GOOD{BLU} ";N$ 
:rem 207 
424 M-220 :rem 184 
425 FORP=1T08 :rem 27 
427 M=M+3 :rem 210 
429 POKE36876,M :rem 85 
430 FORT-1TO25 :rem 74 
431 РОКЕЗ6876,0 :rem 49 
432 NEXTP :rem 40 
433 RESTORE :rem 190 
440 R=R+1 :rem 213 
450 POKE198,0:PRINT"(Í3 DOWN}HIT ANY KEY" 
:rem 186 
460 GETZ$:IFZ$-""THENA460 :rem 137 
480 NEXTB :rem 29 
500 PRINT"ÍCLR]YOU HAD{RED} "К" {BLU}RIGH 
T AND{RED} ":PRINT :rem 200 
510 PRINTW" {BLU}WRONG." :rem 152 
550 PRINT"{3 DOWN}WOULD YOU LIKE TO":PRIN 
T :rem 181 
560 PRINT"TRY AGAIN (Y/N)?" :rem 49 
580 GETZ$:1FZ$-2""OR(Z$«»"Y"ANDZS$«»"N")THE 
8580 :rem 115 
590 IFZ$-"Y"THEN8O :rem 28 
600 PRINT"{CLR}IT HAS BEEN VERY NICE":PRI 
NT:PRINT"SPELLING WITH YOU":PRINT 
:rem 34 
620 PRINTNS"." :rem 9 
640 PRINT"{3 DOWN}PLEASE COME BACK AGAIN" 
:PRINT :rem 180 
650 PRINT"TO PLAY REAL SOON." :rem 214 
660 PRINT"(2 DOWN}{9 RIGHT}{RED}BYE!" 
ігеп 177 
700 END :rem 110 
5000 REM INPUT :rem 57 
5050 PRINT"{CLR}{DOWN}HOW MANY WORDS DO W 
jam :rem 32 
5060 INPUT"HAVE TODAY";Z$:N-VAL(Z$):1FN»5 
ZORN-0 ТНЕМ5050 :rem 131 
5100 FORX=1TON :rem 100 
5150 PRINT"(CLR)Í(RED) {RVS}{SHIFT-SPACE }CH 
ЕСК YOUR SPELLING!!{OFF}{BLU}" 
:rem 251 
5200 PRINT"Í3 DOWN]WORD £$";X; :INPUT" 
{LEFT }";ws (X) :rem 2 
5210 IFLEN(W$(X))-£ORLEN(W$(X))»190THEN515 
Ø :rem 166 
5220 IFASC(W$(X))«650RASC(W$(X))»90THEN51 
50 :rem 217 
5250 МЕХТХ :rem 99 
5300 RETURN :rem 168 
6000 REM WISEGUY :rem 215 
6010 PRINT"(RED)Í2 DOWN}VERY FUNNY,WISEGU 
Y{BLU}":PRINT :rem 235 
6015 FORT-1TO1099:NEXT :rem 82 
6020 FORT=1TO599:NEXT :rem 34 
6030 RETURN :rem 169 
7000 О=@ :rem 133 
7001 1=7900:С0=38620 :rem 45 
7010 POKEL+Q,@:POKECO+Q,4 :rem 242 
7020 POKEL+Q+1,61:POKECO+Q+1,4 :rem 226 
7030 ҒОВТ-1Т050:МЕХТ :rem 244 
7040 POKEL+Q+1,62:POKECO+Q+1,4 :rem 229 
7042 POKE36877,160:FORT-1TO10:NEXT:rem 46 
7045 РОКЕЗ6877,0 :rem 106 
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7050 FORT=1TO59:NEXT :rem 246 
7060 IFQ=9THENRETURN :rem 50 
7878 POKEL+Q, 32 srem 86 
7075 Q=Q+1 :rem 14 
7080 Сс0Т07001 :геп 208 
8000 0-0 :rem 134 
8001 1=7900:С0=38620 :rem 46 
8010 POKEL+Q,9:POKECO+Q,4 :rem 243 
8020 POKEL+Q+1,61:POKEL+Q+1,4 :rem 157 
8030 FORT=1TO59:NEXT :rem 245 
8040 POKEL+Q+1,62:POKECO+Q+1,4 :rem 230 
8042 POKE36877,160:FORT-1TO10:NEXT:rem 47 
8045 РОКЕЗ6877,0 :rem 107 
8050 FORT-1TO59:NEXT :rem 247 
8060 POKEL+Q, 32 :rem 86 
8070 IFQ=2@THENPOKEL+Q+1,32:RETURN 
:rem 123 
8075 Q=Q+1 :rem 15 
8080 GOTO89901 :rem 210 
9000 END :rem 160 
Program 2: 
Spelling Critter—64 Version 
10 POKE52,48:POKE56,48:CLR :rem 22 
20 POKE53281,1:PRINT"(CLR]":POKE53281,6:P 
0КЕ53280,6 :rem 42 
30 S=54272:V=54296 :AD=54277:SR=5427F=5 
4273:LF=S:SD=54276 :rem 117 
40 FORL=STOS+24: POKEL, 9:NEXT: POKEAD, 14:PO 
KESR, 204 :rem 135 
50 FORI=1436T01443: POKEL, INT(RND(1)*25)+1 
:NEXT:FORI-1445TO1451 :rem 216 
60 POKEI, INT(RND(1)*25)+1:NEXT:FORI=1 ТО 
(SPACE) 509 : NEXT :rem 155 
70 FORI-1436TO1443:READL:POKEI,L4128:GOSU 


80 


90 


100 
110 


120 


130 
140 
150 
160 
170 
180 
198 
200 
210 
220 
230 


240 
258 


B119:FORJ=1T0O79:NEXTJ:POKESD, 32:NEXTI 
:rem 232 
FORI=1445T01451: READL: POKEIL, L+128:GOSU 
B118:FORJ=1T079 :NEXTJ : POKESD, 32:NEXTI 
:rem 232 
DATA19,16,5,12,12,9,14,7,3,18,9, 28,28, 
5,18 :rem 195 
POKE1444,160:GOTO 120 :rem 86 
POKEV, 15: POKEHF, 48: POKELF, 50: POKESD, 3 
3 : POKEV , Ø : RETURN :rem 131 
PRINT"(HOME](WHT)(15 DOWN}{3 RIGHT}ON 
E МОМЕМКТ............ . e e e PLEASE!" 
zrem 63 
PRINTCHR$(142):POKE56334,PEEK(56334)A 
ND254 :rem 141 
POKE1, PEEK(1)AND251:FORI=@T0511:POKEI 
+12288, PEEK(I+53248) :NEXT :rem 187 
POKE1 , PEEK(1)OR4: POKE56334, PEEK( 56334 
)OR1 :rem 133 
FORI=1TO3 : READW: FORC=WTOW+7 : READA: POK 
EC,A:NEXTC:NEXTI :rem 58 
рАТА12288,96,128,77,63,31,13,0,0 
:rem 32 
DATA12784,3,52,184,240,240,184,52,3 
:rem 179 
DATA12776,0,54,58,242,242,58,54,0 
:rem 87 
DIMWS$(5@) :С1=54272 :rem 167 
FORJ=1T07 : READMS (J) :NEXTJ :rem 49 
POKE53272, (PEEK(53272) AND240)OR12 
:rem 41 
POKE53281,1:PRINT"(CLR]":POKE53281,6: 
РОКЕ53280,6 :rem 93 
R=1464:J=1:GOSUB45@:GOSUB85@ :rem 144 
N$zNM$:POKE53272,21 ігеп 0 


260 


270 
280 
290 


300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
395 


400 
410 


420 
430 
440 
450 
460 


470 
480 


490 
500 


510 
520 
530 
540 
550 
560 
570 
580 
590 
609 
610 
620 
630 
640 
650 


660 


GOSUB710:POKE53281,1:PRINT"ÍCLR]":POK 


Е53281,6:РОКЕ53280,6 ігеп 178 
WG=Ø : КТ=0 :rem 241 
FORB=1TON :rem 34 
PRINT" {CLR} {WHT}":POKE214,12:PRINT: Po 


KE211,INT((49-LEN(W$(B)))/2)-1:PRINTW 
$(B) :rem 115 
FORT=1T01990 :NEXT :rem 25 
PRINT" {CLR}{WHT}{5 SPACES}TO REVIEW T 
HE WORD PRESS ? KEY" :rem 68 


POKE53272, 28:R=1464:J=2 : GOSUB458:GOSU 
B85 :rem 146 
AS=NMS$ :rem 247 


ІЕАб-"ТНАТ WORD'THENJ-6:R-1704:GOSUBl 
929: GOSUB45@ : R=1544:GOSUB79@: GOTO2998 
:rem 201 
IFASC(A$)-263ORASC(A$)-47THEN298 
:rem 250 
IFAS=WS (В) THENGOSUB1929: J=5 :M$ (J )=MS$ ( 


J)+" "+N$:R=1794:GOSUB459 :rem 195 
IFJ=5THENRT=RT+1 : GOSUB469 :GOSUB579:GO 
Т0560 :rem 171 


WG=WG+1 : GOSUB1@20:J=3:M$(J)=M$(J)+" " 
*N$:R-1704:GOSUB450:GOSUB570 :rem 186 
J=4:R=1824:MS(J)=M$(J)+" "+WS(B):GOSU 
B450:R-1544:GOSUB798:GOSUB570:rem 192 
M$(J)="THE CORRECT ANSWER IS:":GOTO59 
Ø :rem 216 
REM CORRECT ANSWER SOUND :rem 227 
POKEV,15:POKESD,17:FORS-40TO1900 

:rem 137 
РОКЕНЕ, ІМТ (ЕМЮ(1)*100+40) : POKELF,S:FO 


Ер-1Т020:МЕХТ :rem 54 
NEXT:POKESD,16:RETURN :rem 131 
REM MESSAGE ROUTINE :rem 167 


C-((R-19824)/40) -1:CN-INT((40-LEN(MS$(J 
)))/2)-1 :rem 19 
FORI=1TOLEN (M$ (J ) ) :LR=R+CN+1I:IFLR> 202 
3THENLR=2623 :rem 235 
FORK=1T029:NEXTK: POKELR+1,32 :rem 248 
POKELR, 9: POKELR+1, 62 : POKELR+CL, 1: POKE 
LR+CL+1,1:GOSUB1198:POKESD,32 :геп 49 
FORK-1TO28:NEXTK:POKELR, 32 :rem 158 
A-ASC(MID$(M$(J);,I,1)):IFA-32THENPOKE 
LR,A:GOTO5390 :rem 136 
IFA<650RA>99THENPOKE214,C:PRINT: POKE2 


11,CN+I:PRINTCHR$(A):GOTO53@  :rem 84 
CH=A-64: POKELR, CH: POKELR+CL,1 :rem 19 
NEXTI :rem 32 


FORD=LR+1TOR+38: POKED, 9: POKED+1 , 62 : PO 
KED+CL, 3: РОКЕр+СІ+1,3:6050В110:гет 96 
РОКЕ5р,32:ЕОВК-1Т010:МЕХТК:РОКЕр,32:Р 
OKED+1,32:NEXTD: RETURN :rem 66 
POKE198,0:PRINT"(2 DOWN}{15 RIGHT}HIT 
ANY KEY":GOTO 580 :rem 110 
M$(J)=MID$ (M$(J),1,LEN(M$(J))-LEN(N$) 


-1):RETURN :rem 76 
GETZ$ :ІР7$=" "ТНЕМ580 :rem 143 
NEXTB ігеп 31 
REM GAME OVER ROUTINE :rem 246 


POKE53272,21:PRINT"(CLR])(WHT)Í3 DOWN] 
{11 RIGHT}THE GAME IS OVER" :rem 64 
PRINT"{3 DOWN}{2 RIGHT}RIGHT";TAB(33) 


; "WRONG" :rem 41 
PRINT"(DOWN)(Í2 RIGHT}";RT;TAB(33) ;WG 
:rem 56 


PRINT" {8 DOWN}{2 SPACES}WOULD YOU LIK 
E TO PLAY AGAIN (Y/N)?" :rem 63 
GETZ$:1IFZ$-""OR(Z$«»"Y"ANDZ$«»"N")THE 
8650 :rem 111 
IFZ$-"Y"THENFORI-1TON:W$(I)-"":NEXT:G 


670 


680 
690 
700 


710 
720 


725 
730 


740 
756 
760 
765 
766 
770 
780 
796 
800 


810 
820 


830 


840 
850 


860 
870 


880 
890 


900 


910 
920 


930 
940 
950 
960 
970 
975 


980 
990 


1000 


1010 


1020 
1030 


0Т0260 :rem 149 
PRINT" {CLR}{8 DOWN)Í3 SPACES}IT HAS В 
EEN VERY NICE SPELLINGÍ10 SPACES}WITH 
LOU WANS n :rem 114 
PRINT"{2 DOWN}{4 SPACES}PLEASE COME B 
ACK TO PLAY AGAIN." :rem 231 
POKE53272, 28:R=1704:J=7:GOSUB45@ : POKE 


53272,21:END :rem 83 
REM INPUT :rem 11 
РОКЕ53280,3:РОКЕ53281,3 :rem 243 


PRINT" {CLR}{BLU}{12 DOWN}HOW MANY WOR 
DS DO WE HAVE TODAY"; :INPUTZS$:N-VAL(Z 
$) :rem 104 
IFN> 59ORN=OTHEN7 29 :rem 66 
PRINT" {CLR} {BLU} {3 DOWN}{9 SPACES} 
{RVS}{SHIFT-SPACE}CHECK YOUR SPELLING 
11 {OFF} {BLU} " :rem 0 
FORX-1TON :rem 57 
POKE214,12:PRINT:POKE211,5:PRINT"ENTE 
R WORD # ";X;:INPUT"{LEFT}";w$(X) 
srem 214 
FORI-1TO17:POKE214,12:PRINT:POKE211,2 
l-I:PRINTCHR$(32):NEXTI :rem 220 
IFLEN (W$ (X) )=ØORLEN (W$ (X) )» LOÓTHEN759 


:rem 81 
IFASC(W$(X))«650RASC (W$ (X) )>9@THEN75@ 
:rem 132 
NEXTX : RETURN :rem 79 
REM ERASE ROUTINE :rem 25 
FORI=RTOR+38 :rem 234 
CH-62:IF(I*1)/2-INT((I*1)/2)THENCH-61 
:rem 22 
POKEI+CL,1:POKEI+CL+1,1 :rem 77 


POKEI , @: POKEI+1,CH: FORD=1TO5@ :NEXTD 
:rem 203 
POKEI,32:GOSUB119:POKESD, 32: NEXTI : POK 
EI,32:RETURN гет 160 
REM ANSWER ROUTINE :rem 118 
POKE198,0:POKE1561-«CL,1:POKE1562-*4CL,1 
:POKE1561,0:POKE1562,62:CT-1:NM$-"" 
:rem 123 
GETZ$:IFZ$-""THEN860 :rem 145 
IFASC(Z$)2630RASC(Z$)-247THENNMS$-Z$ :RE 
TURN :rem 44 
IFASC(Z$)-32THENA-32:GOTO929 :rem 151 
IFASC (Z$)=13ANDLEN(NM$ ) <>@THEN959 


:rem 176 

IFASC (7$) <650RASC (Z$ ) > 9@THEN869 
:rem 48 
A-ASC(Z2$)-64 :rem 85 


NMS$=NM$+Z$ : РОКЕ1560+СТ,А:РОКЕ1561+СТ, 
@:POKE1561+CT+1,62 :rem 159 
POKE1569@+CT+CL, 1: POKE1561+CT+CL,1:POK 


E1561+CT+CL+1,1:CT=CT+1 :rem 235 
GOSUB11@:POKESD, 32:GOTO869 :rem 81 
IFJ<>1THENRETURN :rem 49 
FORI-1561TO1582:POKEI,32:FORJ-1TOLEN( 
NM$) :rem 250 
A=I+J: IFA>1582THENA=1582:POKEA,32:GOT 
о 990 :rem 193 
AS=ASC (MID$(NMS$,J,1)) :IFAS<650RAS>98T 


HENPOKEA, 32: GOTO990 :rem 164 
POKEA+CL, 1:POKEA,AS-64 :rem 41 
NEXTJ : A=I+J+1:IFA>1582THENA=1582: POKE 
A,32:GOTO 1919 :rem 2 
POKEA-1+CL, 1: POKEA+CL,1:POKEA-1,%:PO 
KEA, 62 :rem 9 


FORK=1T03@ : NEXTK: GOSUB119: POKESD, 32: 
NEXTI : RETURN :rem 229 
FORI=1561+LEN(NMS )TO1581 :rem 137 


POKEI+CL, 1:POKEI+1+CL,1:POKEI+2+CL,1 
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1040 


1050 
1060 


1070 
1080 
1090 


1100 
1110 


:РОКЕІ, 32: РОКЕІ+1,0:РОКЕІ+2,62 
:rem 238 
GOSUB11@:POKESD, 32:NEXTI:POKEI,32:PO 
KEI+1,32:RETURN :rem 38 
DATA"HI, WHAT IS YOUR NAME" :rem 33 
DATA"HOW DO YOU SPELL THAT WORD" 
:rem 144 
DATA"I'M SORRY, THAT IS WRONG":rem 8 
DATA"THE CORRECT ANSWER IS:":rem 192 
DATA"THAT IS RIGHT, VERY GOOD" 
:rem 14 
DATA"VERY FUNNY, WISEGUY" :rem 79 
DATA"BYE!{2 SPACES}BYE!{2 SPACES}BYE 
IS :rem 36 


Word Scramble 


See article on page 86. 


BEFORE TYPING... 


Before typing in programs, please refer to "How 
To Type СОМРОТЕ!ѕ Gazette Programs," "A 
Beginner s Guide To Typing In Programs,” and 


e Automatic Proofreader” that appear before 


the Program Listings. 


Program 1: 
Word Scramble—VIC Version 


10 PRINT"(CLR]":POKE36879,8:PRINT"(RED] 
{7 DOWN}{5 RIGHT}WORD SCRAMBLE": POKE36 
878,15 srem 98 

20 GOSUB1909:POKE36879,27:PRINT"([CLR]" 

:rem 80 

25 PRINT"{RED}EACH PLAYER TAKING":PRINT"T 
URNS ENTERS A COMMON" :rem 114 

30 PRINT"ÍRED]WORD (МАХ.10 LETTERS)."; 

srem 222 

35 PRINT"{RED}THE COMPUTER WILL THEN";:PR 
INT"SCRAMBLE THE WORD AND" :rem 139 

40 PRINT"{RED}PRINT IT." :rem 169 

45 PRINT"{RED}YOU HAVE THREE MINUTES"; :PR 
INT"TO FIND IT." :rem 233 

50 PRINT"{RED}IF FOUND WITHIN THE":PRINT" 
ALLOTTED TIME,YOU WILL"; zrem 64 

55 PRINT"ÍRED]BE GIVEN 50 POINTS.":PRINT" 
EVERY WRONG GUESS THAT"; :rem 221 

68 PRINT"{RED}YOU MAKE WILL COST":PRINT"Y 
OU 10 POINTS.ÍBLU]" :rem 114 

65 PRINT:PRINT:PRINT:PRINT"Í3 RIGHT}{RVS} 
{PUR}PRESS SPACE BAR{OFF}" :rem 246 

70 GETAS: 1FAS=""THEN7@ :C=6 :rem 219 

80 PRINT"{CLR}{4 DOWN}{GRN}PLAYER # 1'S N 
АМЕ {ВІО }":ІМРОТР$(0) :rem 200 

85 PRINT:PRINT:PRINT"{RED}PLAYER # 2'S NA 
ME{BLU}":INPUTPS(1) :rem 132 

90 PRINT:PRINT"{DOWN}{PUR}"PS(C)",":PRINT 
"(RVS)(RED)ENTER WORD TO BE":PRINT" 
{RVS}SCRAMBLED: {OFF} [BLU] " :rem 216 

92 WS="":INPUTWS:IFWS=""THENPRINT"{UP}";: 
GOTO92 :rem 27 

95 IFLEN(WS$)>1@THENPRINT"{RVS}{GRN}MORE T 
HAN 10 LETTERS! {OFF}{BLU}{7 UP}":GOTO9 
ø :rem 254 

100 GOSUB208 :rem 163 

110 GOSUB3ØØ :rem 165 

logo T(C)=T(C)+S(C) :rem 178 

130 GOSUB4909:FORI-1TO10:B$(I)-"":NEXT 

:rem 184 
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140 
288 
218 
220 
239 
240 
259 
260 
270 
271 


272 


275 


280 


285 
292 
295 


298 
300 
310 
320 
325 
330 
335 
340 
350 


355 


360 
365 
370 


375 
378 


389 
390 
400 
410 


420 
430 
440 
450 
500 


510 


520 
550 


560 


576 
580 


GOTO9Ø :rem 55 
FORI-1TOLEN(W$) :rem 126 
AS(I)Z2MIDS(W$,I,1) :rem 107 
NEXT :rem 211 
C$z"":FORI-1TOLEN(W$) :rem 163 
R=INT(RND(1)*LEN(WS)+1) :rem 248 
IFBS$(R)<>""THEN249 :rem 178 
BS(R)-AS(I) :rem 221 
NEXT :rem 216 
FORI=1TOLEN (WS ) :C$=C$+B$(1):NEXT 

srem 111 
IFCS=WSANDLEN (WS ) <>1THENFORI=1 TOLEN(W 
$):B$(I)2"":NEXT:GOTO230 :rem 201 
PRINT"{CLR}{5 DOWN}{RVS}{7 RIGHT} 


{RED}WORD НА5(11 RIGHT}BEEN SCRAMBLED 
{OFF}{BLU}" :rem 255 
PRINT"{6 DOWN}{3 RIGHT}{GRN}PRESS SPA 
CE BAR{9 RIGHT}WHEN READY{BLU}" 

srem 223 
GETC$:IFC$-""THEN285 :rem 101 
PRINT"(CLR](Í5 DOWN}{7 RIGHT]";:rem 90 
FORI-1TOLEN(W$):PRINT"(RED]";B$(I);: 


EXT :rem 162 
RETURN srem 131 
Х-51:5(С)-50 :rem 81 
ТІ5-"000000" :rem 246 
PRINT:PRINT:PRINT:PRINT :rem 119 
SC=7885 :CC=38605 :rem 76 
FORI=1TOLEN (WS) :rem 130 
POKESC, 99: POKECC, 2 :rem 75 
GETC$ srem 222 


PRINT" {HOME}{RVS}"MIDS(TIS,4,1)" 
{OFF}MINUTES{2 SPACES}{RVS}"RIGHTS (TI 


$,2)" {OFF}SECONDS" :rem 95 
IFTIS-"900300"THENGOSUB590 :GOTO390 
:rem 228 
IFCS=""THEN34G srem 214 
PRINT"{4 ройы)" srem 179 


IFCS=AS$ (І) THENPRINTTAB(X)AS(I);:POKE3 
6875, 200: FORT=1TO19@ : NEXT : POKE36875,9 
:GOTO380 :rem 230 
IFS(C)«10THENGOSUB550:GOTO398 :rem 10 
IFC$«»AS(I)THENS(C)-S(C)-19:POKE36877 
,2208:FORT-1TO100:NEXT:POKE36877,0:GOT 


0335 :rem 131 
X=X+1 : SC=SC+1 :CC=CC+1 : NEXT :rem 59 
RETURN :rem 124 
IFC«»lTHENC-1:RETURN :rem 11 


PRINT"(CLR)Í5 DOWN}{7 RIGHT}{RED} 


{RVS} SCORES {OFF} {BLU}" :rem 199 
PRINT"{7 RIGHT}K6 ТЯ" :rem 4 
PRINT" {DOWN} "P$(Ø),P$(1) :rem 144 
PRINTT(1),T(@) :rem 252 
С=0 : RETURN :rem 99 
PRINT"(CLR])Í4 DOWN}{3 RIGHT}{RVS} 
{RED}YOUR TIME IS UP.{OFF}{BLU}" 

:rem 96 
PRINT"{2 DOWN}{2 RIGHT}WORD WAS:"WS". 
":5(С)-й ігеп 159 
FORT=1TO5909 : NEXT : RETURN :rem 59 


PRINT" {RVS} {RED} {2 DOWN}YOU RAN OUT O 

F POINTS. {OFF}{BLU}" :rem 226 

PRINT"(2 DOWN}{PUR}WORD WAS: {BLU} "w$" 
" 


° :rem 151 
ЕОКТ-1Т02000:МЕХТ :rem 35 
RETURN :rem 125 


1000 FORS-2590TO235STEP-1:POKE36874,S:POKE 


36878,5-235:ЕОКТ-1Т0100:МЕХТТ,5 
:rem 188 


1010 POKE36874,0:POKE36878,15:RETURN 


:rem 126 


Program 2: 
Word Scramble—64 Version 


ТР 
5 5 
6 Р 
о 
10 


20 


25 


30 


35 


48 
45 


50 


55 


60 


65 


70 
75 
80 


85 


90 


92 


95 


100 
110 
120 
130 


140 
200 
210 
220 
230 
240 
250 
260 
276 
271 


272 


275 


280 


285 


290 


295 


OKE53288,6:POKE53281,1 :rem 141 
N=54272 :rem 23 
OKESN-*24,15: POKESN4*5,17:POKESN-*6,240:P 
KESN, 196 :rem 27 


PRINT" {CLR}":PRINT"{RED}{9 DOWN} 
{13 RIGHT}WORD SCRAMBLE" :rem 131 
GOSUB199@: PRINT" {CLR}" :rem 65 


PRINT"(RED](2 DOWN)EACH PLAYER TAKES А 
TURN ENTERING А{5 SPACES}COMMON "; 
:rem 247 
PRINT"WORD (A MAXIMUM OF 10 LETTERS)." 
:rem 103 
PRINT"ÍDOWN)THE COMPUTER WILL THEN SCR 
AMBLE THE WORD"; :rem 162 
PRINT"AND PRINT IT." :rem 96 
PRINT"ÍDOWN)YOU HAVE THREE MINUTES ТО 
{SPACE}FIND IT." :rem 152 


PRINT" {DOWN}IF FOUND WITHIN THE ALLOTT 
ED TIME, YOU" :rem 183 
PRINT"WILL BE GIVEN 50 POINTS." 

:rem 227 


PRINT"ÍDOWN)]FOR EVERY WRONG GUESS THAT 
YOU MAKE, YOUWILL LOSE 10 POINTS. 
{BLU}" :rem 57 


PRINT"{3 DOWN}{7 RIGHT}{RVS}{PUR}PRESS 
SPACE BAR WHEN READY{OFF}" :rem 239 
IFPEEK(197) <>69THEN7@ :rem 131 
РОКЕ198,0 :rem 153 


PRINT"{CLR}{4 DOWN])ÍGRN)PLAYER # 1'S N 
AME{BLU}": INPUTPS (Ø) :rem 200 
PRINT"{3 DOWN}{PUR}PLAYER % 2'S NAME 
{BLU}": INPUTPS (1) :rem 169 
PRINT" {HOME}{16 DOWN}{RED}";PS(C);" EN 
TER WORD ТО BE SCRAMBLED: {OFF}{BLU}" 

:rem 151 
wS="": INPUTWS : LFWS="""THENPRINT"{UP}"33 
GOTO92 :rem 27 
IFLEN(W$)»10THENPRINT"(RVS] (GRN]NO MOR 
E THAN 10 LETTERS{OFF}{BLU}":GOTO9@ 


:rem 131 
GOSUB200 :rem 163 
GOSUB300 :rem 165 
T(C)=T(C)+S(C) :rem 178 
GOSUB4@@ : РОВІ=1Т010:В$(1)="":МЕХТ 

:rem 184 
с0Т090 :rem 55 
FORI=1TOLEN (WS ) :rem 126 
AS(I)=MIDS(WS$,I,1) :rem 107 
NEXT :rem 211 
C$-"";FORI-1TOLEN(W$) :rem 163 
R=INT(RND(1)*LEN(WS)+1) :rem 248 
IFBS(R)«»""THEN240 :rem 178 
BS$(R)-2AS(I) :rem 221 
NEXT :rem 216 
FORI-1TOLEN(W$):C$-2C$-BS(I):NEXT 

:rem 111 
IFCS$-WSANDLEN(W$)«»1THENFORI-1TOLEN(W 
$) :BS(I)-"":NEXT:GOTO230 :rem 201 
PRINT"ÍCLR)Í5 DOWN}{8 SPACES}{RVS} 
{RED}WORD HAS BEEN SCRAMBLED. {OFF} 
{BLU}" srem 35 


POKE 198,0:PRINT"Í6 DOWN}{7 SPACES} 
{GRN}PRESS SPACE BAR WHEN READY{BLU}" 
:rem 234 
IFPEEK(197)«»60THEN285 :rem 243 
PRINT"(CLR])Í5 DOWN}{15 RIGHT]"; 
:rem 66 
FORI-1TOLEN(W$):PRINT"(RED]";B$(I);:N 


298 
300 
310 
320 
325 
330 
335) 
346 
350 


355 
360 
365 
376 


375 
378 


380 
390 
400 
410 


420 
430 


440 
450 
500 
510 
520 
550 
560 
570 


580 
600 


ЕХТ :rem 162 
POKE198,0:RETURN :rem 234 
Х-95:5(С)-50 :rem 89 
ТІ5-"0 000000" :rem 246 
PRINT:PRINT:PRINT:PRINT srem 119 
SC=1399:CC=SC+54272 :rem 5 
FORI=1TOLEN (WS) :rem 139 
POKESC, 99: POKECC, 2 :rem 75 
GETCS :rem 222 


PRINT" {HOME} {RVS} {9 RIGHT}"MIDS(TIS,4 
,1)" {OFF}MINUTES{2 SACES}{RVS}"RIGH 


TS$(TIS,2)" {OFF}SECONDS" :rem 106 
IFTIS$-"000309"THENGOSUB500 : GOTO398 
:rem 228 
IFC$-""THEN340 :rem 214 
PRINT"{4 DOWN}" :rem 179 


IFCS=AS (I) THENPRINTTAB(X)AS$(I);:BY=59 
:LN-50:GOSUB600 :GOTO380 :rem 141 
IFS(C)«10THENGOSUB550:GOTO390 :rem 10 
IFC$«»AS(I)THENS(C)-S(C)-10:BY-20:LN- 


120:GOSUB602:GOTO335 :rem 79 
Х=Х+1:5С=5С+1:СС=СС+1:МЕХТ :rem 59 
RETURN :rem 124 
IFC«»1THENC-1:RETURN :rem 11 


PRINT"ÍCLR)Í5 DOWN}{17 RIGHT}{RED} 
{RVS}SCORES{OFF}{BLU}" :rem 233 
PRINT"{17 RIGHT}K6 ТЯ" :rem 38 
PRINT" {DOWN}{1@ RIGHT}"PS$(@);TAB(25); 


P$(1) :rem 139 

PRINT" {9 RIGHT}"T(1);TAB(24);T(@) 
:rem 29 

C-0:RETURN :rem 99 


PRINT"{CLR}{4 DOWN}{12 RIGHT}{RVS} 
{RED}YOUR TIME IS UP{OFF}{BLU}" 


гет 55 
PRINT"{2 DOWN)Í10 RIGHT}WORD WAS "ws" 
.":5(С)-й :rem 77 
FORT=1 TO5ØøØð : NEXT : RETURN :rem 59 


PRINT" {RVS} {RED} {2 DOWN} {9 RIGHT }YOU 
{SPACE}RAN OUT OF POINTS{OFF}{BLU}" 


:rem 185 

PRINT"{2 роинм} {РОК} {10 RIGHT}WORD WAS 
{BLU}"ws"." :rem 127 
FORT-1TO29000:NEXT :rem 35 
RETURN :rem 125 
POKESN+1, BY: POKESN+4, 33: FORQQ=1TOLN:N 


EXT: POKESN+4, 32: RETURN :rem 127 


1000 FORBY-50TO2OSTEP-1:LN-20:GOSUB600 : NE 


1010 RETURN 


XT:FORI-1TO509:NEXT :rem 73 


:rem 162 


The Beginner's 
Corner 


See article on page 88. 


Program I: Tic-Tac-Toe (64 Version) 


100 
110 
120 
130 


140 


КЕМ ТІС-ТАС-ТОЕ гет 111 
GOTO 560 :rem 102 
КЕМ Х :rem 207 
POKE M,A:POKE M+4,A:POKE M+41,A 

:rem 178 
POKE M+43,A:POKE M+82,A:POKE M+121,A 

:rem 179 
POKE M+123,A:POKE М+160,А:РОКЕ M+164, 
A :rem 14 
RETURN :rem 119 
REM O :rem 203 
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180 


190 
200 
210 
220 
230 
240 
250 
260 


270 
280 
290 
300 
310 
320 
330 
340 


350 
360 
370 
380 
390 


400 
410 
420 
430 
440 


450 
460 
470 


480 


490 
500 
510 
520 
530 
540 
550 
560 


570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 


699 
700 


710 


720 


POKE М,233:РОКЕ M+4,223:POKE M+169,95 


:РОКЕ М+164,105 :rem 1 
FOR I-1 TO 3 :rem 14 
POKE М+І,А:РОКЕ М+1+160,А :rem 72 
POKE M+4@*I,A:POKE M+4Ø*I+4,A  :rem 2 
NEXT I :rem 28 
РОКЕ М-82,32 :rem 55 
RETURN :rem 118 
FOR I=M+C TO М+С+16@ STEP 40 :rem 127 


POKE I,CC(N):POKE I+1,CC(N):POKE 1+2, 
CC(N):POKE I43,CC(N):POKE I+4,CC(N) 


:rem 227 
NEXT I :rem 33 
RETURN :rem 122 
REM TONE :rem 181 
POKE F1,42:POKE F2,62 :rem 64 
POKE W,17 :rem 174 
FOR D-1 TO 60:NEXT D:POKE М,0 :rem 16 
RETURN :rem 118 
X=N:P(E)=X:M=S(E):ON X GOSUB 130,130, 
189 :rem 164 
GOSUB 250 ¿rem 175 
FOR I-1 TO 7 STEP 3 :rem 128 
IF Р(І)<>Р(І-1) THEN 400 :rem 156 
IF Р(І)<>Р(І-2) THEN 400 :rem 152 


ON Р(Т)+1 СОТО 4@@,155@,155@,155@ 


:гет 49 
МЕХТ Т :rem 28 
FOR Т=1 TO З :rem 9 
IF Р(І)<>Р(І4З) THEN 450 :rem 153 
IF Р(І)<>Р(І-6) THEN 450 :rem 157 


ON Р(Т)+1 GOTO 45@,155@,155@,155@ 


:rem 50 
NEXT I тет 33 
IF P(5)«»X THEN 490 :rem 157 
IF (Р(1)=Х) AND (P(9)-X) THEN 1550 

¿rem 111 
IF (P(3)-X) AND (Р(7)-Х) THEN 1550 

:rem 112 
FOR I-1 TO 9 :rem 23 
IF P(I)=@ THEN 540 :rem 67 
NEXT I :rem 36 
PRINT "TIE GAME!" :rem 133 
GOTO 1590 :rem 160 
N-ABS(N-4) :rem 250 
RETURN :rem 122 
PRINT "{CLR}{BLU}":POKE 53281,1 

ігеп 231 
W=54276:POKE М,0 :rem 84 
PRINT TAB(15)"TIC-TAC-TOE" :rem 246 
FOR I-1 TO 9:READ S(I):NEXT I :rem 29 
DATA 1114,1122,1130,1434,1442 :rem 73 
DATA 1450,1754,1762,1770 :rem 111 
PRINT "{2 DOWN}CHOOSE ONE OF THE POSI 
TION NUMBERS." :rem 99 
PRINT "{DOWN}TRY TO GET THREE IN A RO 
WIES :rem 115 
РОКЕ 54296,15:F1=54273:F2=54272:C=F2 

:rem 125 
POKE W+1,128:POKE W+2,16 :rem 244 
А-160:СС(1)-6:СС(3)-10 :rem 72 


PRINT "{DOWN}ALTERNATE TURNS WITH THE 
COMPUTER. " :rem 117 
PRINT "{DOWN}{BLK}X{BLU} GETS FIRST M 
ОУБ ЫЕ. :гет 167 
Ү-3:7-1:СН-2 :rem 158 


PRINT "(2 DOWN}CHOOSE{2 SPACES)(BLK]F 
1{BLU} FOR {BLK}X{BLU}" :rem 95 
PRINT TAB(8)"{BLK}F3{BLU} FOR {BLK}O 
{BLU}" :rem 214 
GET ES:IF ES«»"(F1]" AND ES<>"{F3}" T 
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730 
740 
750 


760 


770 


780 
790 


800 
810 
820 
830 
840 
850 
860 


876 
880 
898 
988 
910 
920 
930 
940 


950 
960 
970 
980 
998 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1876 
1080 
1090 


1100 
1110 
1120 
1130 
1149 
1150 
1160 


1170 
1180 


1190 
1200 
1210 
1220 
1230 


1240 


1250 
1260 


НЕМ 720 :rem 159 
IF ES="{F1}"THEN Y-1:2-3 :rem 146 
POKE 198,0 :rem 200 


PRINT "{2 DOWN}CHOOSE{2 SPACES}{BLK}F 
1{BLU} BEGINNER" :rem 192 
PRINT TAB(8)"{BLK}F3{BLU} INTERMEDIAT 


ES :rem 113 
GET ES$:IF ES<>"{F1}" AND ES<>"{F3}" T 
HEN 770 :rem 169 
IF Е$="{Е1}" THEN CH-1 :rem 197 
PRINT "(CLR]":CT-INT(14*RND(2))42 
:rem 159 
FOR I-1 TO 9:P(I)-0:NEXT I :rem 101 
FOR І-1080 TO 1960 STEP 40 :rem 226 
POKE I,A:POKE I+C,CT :rem 98 
РОКЕ I+8,A:POKE I+8+C,CT :rem 41 
NEXT I :rem 36 
FOR I=1353 TO 1375 гет 73 


POKE I,A:POKE I+C,CT:POKE 1+320,А:РОК 
E I*3204C,CT :rem 232 
NEXT I :rem 39 
FOR I-1 TO 9:POKE S(I)-«*82,1-448:rem 17 


POKE 5(1)+82+С,0:МЕХТ I :rem 222 
М-1 :rem 85 
IF CH-2 THEN 1040 :rem 23 
IF Y-1 THEN 970{5 SPACES} :rem 192 
REM COMPUTER'S MOVE :rem 160 
E-INT(9*RND(2)«-1):1IF Р(Е)<>0 THEN 940 

:rem 164 
GOSUB 346 :rem 181 
REM YOUR MOVE :rem 9 
GOSUB 300 :rem 179 
GET Е5:ІЕ Е5-""ТНЕМ 980 :rem 109 
IF Е5<"1" OR E$>"9" THEN 980 :rem 224 


Е-УАҺ(Е5):ІЕ Р(Е)<>0 THEN 970 :rem 8 
GOSUB 340 :rem 217 
ОМ СН СОТО 940,1060 :rem 180 
REM COMPUTER'S MOVE :rem 200 
IF Y-1 THEN 970 :rem 234 
REM CENTER POSITION :rem 224 


IF P(5)-0 THEN E-5:GOTO 1520:rem 186 
IF P(5)-X THEN 1140 :rem 183 
REM DIAGONALS :rem 63 
IF Р(1)=0 AND P(9)-Z THEN E-1:GOTO 1 
520 :rem 249 
IF Р(1)-2 AND Р(9)=0 THEN E=9:GOTO 1 
520 :rem 249 
IF P(3)=@ AND P(7)=Z THEN E-3:GOTO 1 
520 :rem 244 
IF P(3)=Z AND P(7)-0 THEN E=7:GOTO 1 
520 :rem 249 
REM COLUMNS :rem 202 
FOR K-1 TO 3 :rem 60 


IF P(K)=X OR P(K+3)=X OR P(K+6)=X TH 
EN 1200 :rem 204 
IF P(K)+P(K+3)+P(K+6)<>2*Z THEN 1200 
:rem 82 
IF Р(К)-й THEN E-K:GOTO 1520:rem 232 
IF P(K+3)=@ THEN E=K+3:GOTO 1529 
:rem 165 
E=K+6:GOTO 1520 :rem 52 
NEXT K srem 77 
REM ROWS :rem 243 
FOR K-1 TO 7 STEP 3 :rem 174 


ТЕ. 
ЕМ 
TE 


Р(К)=Х OR P(K+1)=X OR P(K+2)=X TH 
1280 :rem 205 
P(K)+P(K+1)+P(K+2)<>2*Z THEN 1280 
:rem 83 
P(K)=@ THEN E-K:GOTO 1520:геп 231 
P(K+1)=@ THEN E=K+1:GOTO 1520 
:rem 160 


ТЕ 
ТЕ 


1270 E=K+2:GOTO 1520 :rem 47 
1280 МЕХТ К :rem 85 
1290 REM PREVENT COLUMN :rem 162 
1300 FOR K-1 TO 3 :rem 58 
1310 IF P(K)=Z OR Р(К+3)=7 OR Р(К+6)=7 ТН 
EN 1360 :rem 215 
1320 IF P(K)+P(K+3)+P(K+6)<>2*X THEN 1360 
:rem 85 
1330 IF P(K)=@ THEN E-K:GOTO 1520:rem 230 
1340 IF Р(К+3)=0 THEN E=K+3:GOTO 1520 
:rem 163 
1350 E=K+6:GOTO 1520 :rem 50 
1360 NEXT K :rem 84 
1370 REM PREVENT ROW :rem 203 
1380 FOR K-1 TO 7 STEP 3 :rem 181 
1390 IF P(K)=Z OR P(K+1)=Z OR P(K+2)=Z TH 
EN 1440 :rem 216 
1400 IF P(K)+P(K+1)+P(K+2)<>2*X THEN 1440 
:rem 77 
1410 IF P(K)-0 THEN E-K:GOTO 1520:геп 229 
1420 IF Р(К+1)=0 THEN E=K+1:GOTO 1520 
:rem 158 
1430 E=K+2:GOTO 1520 :rem 45 
1440 NEXT K :rem 83 
1450 IF Р(5)-7 THEN 1500 :rem 187 
1460 IF P(1)-0 AND P(9)-X THEN E-1:GOTO 1 
520 :rem 248 
1470 IF P(1)-X AND Р(9)=0 THEN E=9:GOTO 1 
520 :rem 1 
1480 IF P(3)-0 AND P(7)-X THEN E=3:GOTO 1 
520 :rem 252 
1490 IF Р(3)-Х AND Р(7)-й THEN E-7:GOTO 1 
520 :rem 1 
1500 СОТО 940 :rem 156 
1510 КЕМ :rem 171 
1520 GOSUB 340 zrem 223 
1530 СОТО 970 :геп 162 
1540 REM GAME OVER :rem 4 
1550 IF Х<>Ү THEN 1580 :rem 130 
1560 PRINT "YOU WIN!!!" :rem 235 
1570 GOTO 1590 :rem 213 
1580 PRINT "COMPUTER WINSII!" :rem 145 
1590 FOR I-1 TO 20 :rem 114 
1600 POKE Fl,INT(60*RND(2)-4390) :rem 88 
1610 POKE F2,INT(2900*RND(2)-19) :rem 132 
1620 GOSUB 3160 :rem 221 
1630 NEXT I :rem 82 
1640 PRINT "{22 DOWN}TRY AGAIN? (Y/N)"; 
:rem 18 
1650 GET Е5:ІҒ Е5-"М" THEN 1690 :rem 21 
1660 IF E$«»"Y" THEN 1650 :rem 215 
1670 CLR :rem 175 
1680 СОТО 560 :rem 163 
1690 PRINT "(CLR]" :rem 52 
1700 END :rem 159 


Program 2: Tic-Tac-Toe (VIC Version) 


1 
2 


3 


GOTO28 :rem 212 
POKEM, 77: POKEM+3, 78: POKEM+23, 77: POKEM+2 
4,78: POKEM-*45,78 :rem 158 
РОКЕМ+46, 77: POKEM+66, 78: POKEM+69, 77: RET 
URN :rem 202 
POKEM, 85: POKEM+1, 67: POKEM+2, 67: POKEM+3, 
73 : POKEM+22 , 66 : POKEM+23 , 32: POKEM+25 , 93 
:rem 222 
POKEM+44, 66 : POKEM+47 , 93: POKEM+66, 74: POK 
EM+67,64:POKEM+68, 64: POKEM+69, 75: RETURN 
zrem 111 
FORI=M+C ТОМ+С+66 STEP22:POKEI,CC(N):PO 
KEI+1,CC(N) :POKEI+2,CC(N) :rem 181 
POKEI+3,CC(N) :NEXT: RETURN :rem 241 


8 POKEF1, 231 


:rem 160 


9 FORD-1TO60:NEXT:POKEFl1,:RETURN:rem 170 


10 


X=N:P(E)=X:M=S(E):ONX GOSUB2,2,4 


:rem 69 
GOSUB6 :rem 24 
FORI=1TO7STEP3 :rem 74 
ІЕР(І)<>Р(І-1)ТНЕМ16 :rem 51 
ІЕР(І)<>Р(І%2)ТНЕМ16 :rem 53 
ONP(I)+1GOTO16,89,89,89 srem 192 
NEXT :rem 166 
FORI-1TO3 :rem 220 
IFP(I)«»P(I-*3)THEN21 :rem 54 
IFP(I)«»P(I-*6)THEN21 :rem 58 
ONP(I)-*1GOTO21,89,89,89 :rem 184 
NEXT :rem 162 
IFP(5)«»X THEN25 :rem 49 
IF(P(1)-X)AND(P(9)-2X) THEN89 :rem 223 
IF(P(3)-X)AND(P(7)-X)THEN89 :rem 224 
FORI-1TO9:IFP(I)-ÜTHEN27 :rem 153 
NEXT:PRINT"TIE GAME!":GOTO92 :rem 173 
N-ABS(N-4) : RETURN :rem 228 


PRINT" {CLR} {BLU}": PRINTTAB(5) "TIC-TAC- 
TOE":FORI-1TO9:READS(I):NEXT  :rem 191 
DATA7726,7733,7740,7880,7887,7894,8034 
,8041,8048 :rem 98 
PRINT"{2 DOWN}CHOOSE ONE OF THE":PRINT 
"POSITION NUMBERS.":PRINT"{DOWN}GET 3 
{SPACE}IN A ROW." :rem 102 
РОКЕЗ6878,15:Ғ1-36876:С-30720:СС(1)-6: 
СС(3)-2:Ү-3:7-1:Н-2 :rem 69 
PRINT" {DOWN} {BLK}X{BLU} GETS FIRST MOV 
E.":PRINT"{DOWN}CHOOSE {BLK}F1{BLU} FO 
к {BLK}X":PRINTTAB(7)"F3{BLU} FOR 
{BLK}@{BLU}" :rem 8 
GETES : IFE$<>"{F1} "ANDES <>"{F3}"THEN33 
:rem 57 
IFES="{F1}"THENY=1 :Z=3 :rem 95 


PRINT"{2 DOWN}CHOOSE {BLK}F1{BLU} BEGI 
NNER": PRINTTAB(7)"{BLK}F3{BLU} INTERME 


DIATE" :rem 153 
GETES$: IFE$<>"{F1}"ANDES<>"{F3}"THEN36 

:rem 63 
IFES="{F1}"THENH=1 :rem 77 


PRINT" {CLR}":T=INT(6*RND(@))+2:FORI=1T 
09:P(I)=@:NEXT :rem 182 
FORI=7789T08129STEP22: POKEI , 16@: POKEI+ 
C, T: POKEI+7, 168: POKEI+7+C, T: NEXT 

:rem 46 
FORI=7835T07854: POKEI, 160: POKEI+C, T: PO 
KEI+154,16@:POKEI+154+C,T:NEXT :rem 80 
FORI=1T09: POKES (1I)+23,1+48:POKES(I)+23 


+С,0:МЕХТ :rem 250 
N-1:1FH-2THEN51 :rem 55 
IFY=1THEN46 :rem 86 


E=INT(9*RND(@)+1):IFP(E)<>@THEN44 


:rem 58 
GOSUB19 :rem 74 
GOSUB8 :rem 34 
GETES$:IFES$-""THENA47 :rem 1 
ІҒЕ5<"1"ОВЕ5»"9"ТНЕМ47 :rem 116 
E=VAL(ES$) : IFP(E) <>@THEN46 :rem 126 
GOSUB10:0NH GOTO44,52 гет 153 
IFY=1THEN46 :rem 85 
IFP (5)=ØTHENE=5 :GOTO88 :rem 2 
ІЕР(5)-Х THEN58 :rem 254 
IFP(1)=@ANDP(9)=Z THENE-1:GOTO88 

:rem 64 
ІЕР(1)-2 ANDP (9 )=ØTHENE=9 : GOTO88 

ігеп 73 
IFP(3)=@ANDP(7)=Z THENE-3:GOTO88 

:rem 68 
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IFP(3)=Z ANDP(7)=@THENE=7 :GOTO88 
:rem 73 
FORK=1T03: IF (P(K)=X)+(P(K+3 )=X)+(P(K+6 
) =X ) THEN63 :rem 207 

IFP(K)+P(K+3)+P(K+6)<>2*Z THEN63 
:rem 158 
IF P(K)=@THENE=K:GOTO88 :rem 45 
IFP(K+3 )=@THENE=K+3 :GOTO88 :rem 234 
E=K+6 : GOTO88 :rem 121 
NEXT :rem 168 


FORK=1TO7STEP3: IF(P(K)=X)+(P(K+1)=x)+( 
P(K+2)=X)THEN69 :rem 63 
IFP(K)+P(K+1)+P(K+2)<>2*Z THEN69 

:rem 155 
IFP(K)-OTHENE-K:GOTO88 :rem 51 
IFP(K+1 ) =@THENE=K+1:GOTO88 :rem 236 
E=K+2:GOTO88 :rem 123 
NEXT :rem 174 


FORK=1T03 : IF(P(K)=Z)+(P(K+3 )=Z)+(P(K+6 
)=Z ) THEN75 :rem 210 


IFP(K)+P(K+3)+P(K+6)<>2*X ТНЕМ75 

:rem 153 
IFP(K)-ÜTHENE-K:GOTO88 :rem 48 
IFP (K+3)=ØTHENE=K+3 : GOTO88 :rem 237 
E=K+6 : GOTO88 :rem 124 
NEXT acem 171 


FORK=1TO7STEP3: IF (P(K)=Z)+(P(K+1 )=Z)+( 


P(K+2)=Z )THEN81 :rem 66 
IFP(K)+P(K+1)+P(K+2)<>2*X ТНЕМ81 

:rem 150 
IFP(K)=@THEN E=K:GOTO88 :rem 54 
IFP(K+1)=@THENE=K+1 :GOTO88 :rem 239 
E=K+2:GOTO88 srem 117 
NEXT :rem 168 
IFP(5)=Z THEN87 :rem 4 


IFP(1)=@ANDP(9)=X THENE=1:GOTO88 
:rem 64 


ІЕР(1)-Х ANDP (9 )=ØTHENE=9 : GOTO88 

:rem 73 
IFP(3)=@ANDP(7)=X THENE=3:GOTO88 

:rem 68 
ІЕР(3)-Х ANDP(7)=@THENE=7 : GOTO88 

:rem 73 
GOTO44 :rem 16 
GOSUB19:GOTO46 :rem 46 
ІЕХ<>Ү ТНЕМ91 :rem 196 
PRINT"YOU WIN!11!":GOTO92 :rem 102 
PRINT"COMPUTER WINS!" :rem 45 


FORI-1TO20:POKEF1,INT(20*RND(2)4209):G 
OSUB9:NEXT :rem 112 
PRINT"(290 DOWN}TRY AGAIN? (Y/N)"; 

:rem 145 
GETES : IFES="N"THEN97 :rem 86 
IFES«»"Y"THEN94 :rem 25 
CLR:GOTO28 :rem 45 
PRINT"ÍCLR]":END :rem 229 


Inside Random 
Numbers 


See article on page 98. 


BEFORE TYPING... 
Before typing in programs, please refer to "How 
To Type COMPUTE'' Gazette Programs," "A 
Beginner's Guide To Typing In Programs," and 
it he Automatic Proofreader” that appear before 
the Program Listings. 
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Random Number Test 


1 


2 
3 
5 


ч 


PRINT"ÍCLR)(DOWN) PRESS (RVS)R(OFF) TO 


(SPACE) RANDOMIZE." :rem 163 
GETA$:IFA$-""THEN2 :rem 135 
IFAS="R"THENX=RND(-TI) :rem 189 


POKE56,27:CLR: PRINT" {CLR} {DOWN} PLEASE 
{SPACE}WAIT..." :rem 167 


B=7168:C=7679:FORA=BTOC: POKEA, 0: NEXT 


:rem 105 
10 B-885:C-947:FORA-BTOC:READD: POKEA, D: NE 
xT :rem 215 
20 PRINT"{CLR} {DOWN} {RVS}V{OFF}IC OR 64? 
" :rem 167 
25 PRINT"{DOWN} PRESS {RVS}V{OFF} FOR VIC 
ы :rem 153 
26 PRINT" {RVS}RETURN{OFF} FOR 64." 
:rem 60 
30 GETAS:IFA$-""THEN3O :rem 233 
35 IFA$«»"V"THEN5O :rem 4 
48 POKE888, 39: POKE892,148 :rem 168 
50 PRINT"{CLR} {DOWN} PRESS {RVS}F1{OFF} T 
O TEST" :rem 101 
51 PRINT" RANDOM SEEDS." :rem 154 
60 PRINT"ÍDOWN) PRESS {RVS}F3{OFF} TO TES 
T" zrem 213 
61 PRINT" BASIC {RVS}RND{OFF} COMMAND." 
:rem 79 
70 СЕТА5:ІҒА5-""ТНЕМ70 :rem 241 
80 IFAS="{F1}"THENGOTO1999 :rem 139 
90 ІҒА5-"ІЕЗ)"ТНЕМСОТ0О2000 :rem 142 
100 GOTO59 :rem 47 
885 DATA165,197,201,4,240,55,32,151 
:rem 243 
893 DATA224,165,143,133,251,169,254,133 
:rem 191 
901 DATA253,169,27,133,254,169,255,24 
:rem 86 
909 DATA165,253,105,2,133,253,165,254 
:rem 86 
917 БАТА105,0,133,254,200,196,251,208 
:rem 75 
925 DATA238,1690,0,24,177,253,105,1 
:rem 184 
933 DATA145,253,200,177,253,105,0,145 
:rem 76 
941 ГАТА253,201,255,208,195,96,0,0 
:rem 189 
1000 PRINT"{CLR}{DOWN} PRESS 1-5 TO TEST" 
:rem 57 
1010 PRINT" RANDOM SEEDS." :rem 246 
1020 PRINT"{2 DOWN} {RVS}PRESS{4 SPACES}T 
EST BYTE: {OFF}" :rem 149 
1030 PRINT" {DOWN}{3 SPACES}1{9 SPACES}139 
ij :rem 116 
1040 PRINT"Í3 SPACES}2{9 5РАСЕ5)140" 
:rem 93 
1050 PRINT"{3 SPACES}3{9 SPACES}141" 
:rem 96 
1060 PRINT"{3 SPACES}4{9 SPACES}142" 
:rem 99 
1070 PRINT"{3 SPACES}5{9 SPACES}143" 
:rem 102 
1080 СЕТА$:ТЕА$=""ТНЕМ1@8@ :rem 181 
1090 A-VAL(A$):IFA«10RA»5THEN1080:rem 157 
1100 POKE895,138+A :rem 203 
1110 PRINT"{CLR} {DOWN} TESTING RANDOM SEE 
D :rem 56 
1120 PRINT" BYTE ";A+138;"{LEFT}.":rem 86 
1130 PRINT"(DOWN) PRESS {RVS}F1{OFF} TO S 
ТОР" :rem 102 
1140 5Ү5885:с50Т03000 :rem 160 


POKE945,4:POKE946,169:POKE947,255:PO 


2002 
2005 


2010 
2020 


2030 
2035 


2036 


2040 
2050 
2060 
2070 


2080 
2090 
2100 


2110 
2120 
2130 


2140 
3000 
3010 


3020 


3030 
3100 


3110 
3120 
3200 
3210 
3220 
3500 


4000 
4002 


4004 
4006 
4008 


4009 


4010 
4020 
4030 
4035 
4040 
4199 


4119 


4120 
4130 
4140 
4150 
4160 
4170 
4180 
4198 
4200 


KE948, 133: POKE949, 176 : POKE952, 96 
:rem 236 

ЕОВА-891Т0897:РОКЕА,234:МЕХТ:геп 254 

PRINT"(CLR)(DOWN] TESTING BASIC 


(RVS) RND{OFF}" :rem 68 
PRINT" COMMAND." :rem 193 
PRINT"(DOWN] ENTER NUMBER RANGE:" 
:rem 148 
PRINT" (0 - 255)" :rem 224 
PRINT" {DOWN} ENTER TWO NUMBERS" 
:rem 64 
PRINT" SEPARATED BY А COMMA. {DOWN}" 
:rem 189 
INPUTA,B :rem 5 
ІҒА<йОВА>255ТНЕМ2000 :rem 176 
ІҒВ<йОКВ>255ТНЕМ2000 :rem 179 
PRINT" {CLR} {DOWN} TESTING {RVS}RND 
{OFF} COMMAND." :rem 17 
PRINT" {DOWN} RANGE- ";A;"-";B 
:rem 251 
PRINT"Í2 DOWN) PRESS {RVS}F1{OFF} TO 
STOP." :rem 125 
X-251:Y-176:2-255:R-(ABS(A-B))-*1:POK 
ЕҮ,0 :rem 54 
IFA«BTHENL-A :rem 11 
IFB«ATHENL-B :rem 13 
POKEX, INT((RND(1)*R)4L):SYS885:1FPEE 
K(Y)-ZTHEN3000 :rem 94 
с60Т02130 :rem 198 
POKE198,9:GOSUB35090 :rem 114 
B=7168:C=7678:Q=256 :L=29 : FORA=BTOCST 
EP2 :rem 116 
PRINTCT, PEEK(A)+Q* PEEK(A+1) :N=N+1:CT 
-СТ41:ІЕМ->І/ТНЕМСО5/В3200 :rem 71 
NEXT :rem 5 
PRINT"{2 DOWN}{2 SPACES}(PRESS ANY К 
EY) :rem 102 
GETAS$:IFA$-""THEN3119 :rem 173 
сото4000 :rem 195 
N-0 :rem 128 
GETAS : LFAS=""THEN3219 :rem 175 
605083500: RETURN :rem 41 
PRINT" {CLR}NUMBER", "COUNT { DOWN } " : RET 
URN :rem 25 
PRINT"{CLR} {DOWN} REQUEST ANALYSIS?" 
:rem 5 
PRINT" {DOWN} (PRESS {RVS}Y{OFF} OR 
{RVS}N{OFF})" :rem 22 
СЕТА5:ІҒА5-""ТНЕМ4004 :rem 179 
ІҒА5<>"Ү"ТНЕМ5000 :rem 201 
PRINT"{CLR} {DOWN} PLEASE WAIT..." 
:rem 186 
В=7168:С=7678:0=2:ТТ=0:СТ=0:НІ=0:10= 
65535:772=0:6=256 :rem 58 
FORA-BTOCSTEPD :rem 219 
N-PEEK(A)-4G*PEEK(A*1) :rem 183 
IFN=$THENZZ=ZZ+1 : GOTO4G 49 :rem 124 
GOSUB459@ :rem 21 
NEXT :rem 7 
PRINT" {CLR} {DOWN} {RVS}RANDOM ANALYS 
IS: :rem 171 
PRINT" {DOWN} TOTAL NUMBERS HIT:" 
:rem 103 
PRINT"{3 SPACES}";CT :rem 196 
PRINT" {DOWN} TOTAL COUNT:"  :rem 241 
PRINT"Í3 SPACES}";TT :rem 125 
PRINT" {DOWN} AVERAGE COUNT:":rem 106 
PRINT"Í3 SPACES}";TT/CT :rem 69 
PRINT" {DOWN} LOWEST COUNT:"  :rem 79 
PRINT"{3 SPACES}";LO :rem 116 
PRINT" {DOWN} HIGHEST COUNT:":rem 127 
PRINT"{3 SPACES}";HI :rem 99 


4210 PRINT"{DOWN} TOTAL ZEROES:"  :rem 63 


4220 PRINT"{3 SPACES]";ZZ :rem 136 
4230 CLR:PRINT"(DOWN)ÍRVS)R(OFF) TO REPEA 

T ANALYSIS." :rem 178 
4240 СЕТА5:ІҒА5-""ТНЕМ4240 :rem 183 
4400 ІРАЅ$="К"ТНЕМ3000 :rem 129 
4410 GOTO5009 :rem 199 
4500 CT=CT+1:TT=TT+N :rem 208 
4510 IFN>HITHENHI=N :rem 193 
4520 IFN<LOTHENLO=N :rem 212 
4530 RETURN :rem 172 
5000 PRINT"{CLR} PROGRAM ENDED." :rem 207 


Power BASIC 


See article on page 112. 


BEFORE TYPING... 


Before typing in programs, please refer to "How 
To Type COMPUTE" Gazette Programs,” "A 

E epus Guide To Typing In Programs," and 
“The Automatic Proofreader” that appear before 
the Program Listings. 


Power BASIC: One-Touch Keywords 
140 IF PEEK(PEEK(56)*256) «»120THENPOKE56, 


PEEK(56)-1:CLR :rem 158 
150 HI-PEEK(56):BASE-HI*256 :rem 47 
160 PRINT"(ÍCLR)PATIENCE..." :rem 206 
170 FOR AD=@ TO 211: READ BY :rem 153 
180 POKE BASE+AD,BY: NEXT AD :rem 88 
190 : :rem 212 
200 REM RELOCATION ADJUSTMENTS :rem 184 
210 POKE BASE+26,HI: POKE BASE+81,HI 
:rem 2 
220 РОКЕ BASE+123,HI: POKE BASE+133,HI 
:rem 95 
230 :rem 207 


231 ::1F РЕЕК(65532)-34 GOTO 240 :геп 135 
232 ::POKE BASE+9,72: РОКЕ BASE+48,194 


:rem 51 
233 ::POKE BASE+52,235: POKE ВАЅЕ+92,160 
:rem 139 
234 ::POKE BASE+154,72: POKE BASE+157,224 
теш “9З 
235 ::POKE BASE+158,234 :rem 230 
236 =: гет 15 
240 PRINT"{CLR}* ONE-TOUCH KEYWORDS *" 
:rem 88 
250 PRINT"ON/OFF: {3 SPACES}SYS{RVS}";BASE 
:rem 176 
260 END :rem 111 
270 DATA 120,173,143,2,201,32 :rem 127 
280 DATA 208,12,169,220,141,143 :геп 239 
290 DATA 2,169,235,141,144,2 :rem 94 
300 DATA 88,96,169,32,141,143 :rem 155 
310 DATA 2,169,0,141,144,2 :rem 237 
320 DATA 88,96,165,212,208,117 :rem 206 
330 DATA 173,141,2,201,3,176 :rem 83 
340 DATA 110,201,0,240,106,169 :rem 175 


350 DATA 159,133,245,169,236,133 :геп 49 
360 DATA 246,165,215,201,193,144 :rem 40 


370 DATA 95,201,219,176,91,56 :rem 160 
380 DATA 233,193,174,141,2,224 :rem 194 
390 DATA 2,208,3,24,105,26 :rem 245 
400 DATA 170,189,159,0,162,0 :rem 92 
410 DATA 134,198,170,160,158,132 :геп 40 
420 DATA 34,160,192,132,35,160 :rem 187 
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430 DATA 0,10,240,16,202,16 :rem 22 
440 DATA 12,230,34,208,2,230 :rem 78 
450 DATA 35,177,34,16,246,48 :rem 108 
460 DATA 241,200,177,34,48,17 :rem 147 
470 DATA 8,142,211,0,230,198 :rem 91 
480 DATA 166,198,157,119,2,174 :rem 215 
490 DATA 211,0,40,208,234,230 :rem 131 
500 DATA 198,166,198,41,127,157 :rem 8 
510 DATA 119,2,230,198,169,20 :rem 146 
520 DATA 141,119,2,76,220,235 :rem 139 
530 DATA 76,67,236 :rem 127 
540 : :rem 211 
550 REM *TOKENS FOR SHIFT KEY :rem 202 
560 : :rem 213 
570 DATA 153,175,199,135,161,129 :rem 56 
580 DATA 141,164,133,137,134,147 :rem 42 
590 DATA 202,181,159,151,163,201  :rem 37 
600 DATA 196,139,192,149,150,155 :rem 52 
618 DATA 191,138 :rem 20 
620 : :rem 210 
630 REM *TOKENS FOR COMMODORE KEY:rem 240 
640 : :rem 212 
650 DATA 152,176,198,131,128,130  :rem 45 
660 DATA 142,169,132,145,140,148  :rem 43 
670 DATA 195,187,160,194,166,200  :rem 54 
680 DATA 197,167,186,157,165,184 :геп 72 
690 DATA 190,158,0 :rem 121 
0 dB :rem 11 
710 ::REM *CHECKSUM ROUTINE :rem 147 
UPI sts :rem 13 
730 ::FOR Ар-й TO 158 : READ BY :rem 25 
740 ::CHKSUM = CHKSUM + BY : NEXT AD 
:rem 166 
750 ::1F CHKSUM <> 20347 THEN PRINT "ERRO 
IUS :rem 143 


Scroll 64 


See article on page 127 for instructions on use. 


10 
20 


30 


5000 
5010 


5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 


5110 


ПАТА11507,12573,12522,11001 
A=49152:B=84:C=A+B: FORI=1T04:D=@ : READX 
: FORJ=ATOC: D=D+PEEK(J) :NEXT 
IFD<>XTHENPRINTTAB(19)"ERROR IN BLOCK 
{SPACE} $"I:GOTO50 

PRINT"BLOCK #"I"IS CORRECT" 
A=C+1:C=A+B:NEXT: END 
FORI=1T04: READA: NEXT: READLO, HI: FORI=LO 
TOHI : READX: POKEL, X:NEXT: END 

DATA 49152, 49528 

DATA 174,114,193,224,3,144,3,76,117, 
192,188,114,193,140,121,193,174 

DATA 118,193,232,202,32,30,193,172,1 
21,193,173,119,193,201,2,208,10 

DATA 169,32,72,173,33,208,72,76,50,1 
92,177,90,72,177,92,72,204 

DATA 116,193,240,20,200,177,90,72,17 
7,92,136,145,92,104,145,90,200 

DATA 204,116,193,208,238,240,18,136, 
177,90,72,177,92,200,145,92,104 

DATA 145,90,136,204,115,193,208,238, 
173,119,193,201,0,208,5,104,104 

DATA 76,111,192,104,145,92,104,145,9 
0,236,117,193,208,160,96,172,116 
БАТА 193,200,189,114,193,170,32,30,1 
93,173,120,193,201,2,208,19,136 

DATA 169,32,153,122,193,173,33,208,1 
53,162,193,204,115,193,208,239,240 
DATA 16,136,177,90,153,122,193,177,9 
2,153,162,193,204,115,193,208,240 
DATA 236,117,193,240,37,202,32,30,19 
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5120 


5130 


5140 


5150 


5160 


5170 


5180 


5190 


5200 


5210 


5220 


5230 


3,172,116,193,200,136,177,90,72 

БАТА 177,92,32,48,193,145,92,104,145 
,90,32,56,193,204,115,193,208 

БАТА 234,236,117,193,208,221,240,46, 
202,206,118,193,232,32,30,193,172 
БАТА 116,193,200,136,32,48,193,177,9 
0,72,177,92,32,56,193,145,92 

DATA 104,145,90,204,115,193,208,234, 
236,118,193,208,221,238,118,193,232 
БАТА 32,30,193,173,120,193,201,0,240 
,20,172,115,193,136,200,185,162 

DATA 193,145,92,185,122,193,145,90,2 
04,116,193,208,240,96,189,89,193 
DATA 133,91,24,105,212,133,93,189,64 
,193,133,90,133,92,96,72,152 

DATA 24,105,40,168,104,96,72,152,56, 
233,40,168,104,96,0,40,80 

DATA 120,160,200,240,24,64,104,144,1 
84,224,8,48,88,128,168,208,248 

БАТА 32,72,112,152,192,4,4,4,4,4,4,4 
,.5,5,5,5,5 

DATA 5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4 
,0 

DATA 4,1,1 


Tape Data Files For 
VIC And 64 


See article on page 130. 


Program 1: 
Files Written From Keyboard 


200 
210 


215 
220 


225 
230 


240 
245 
250 
260 
265 
270 


280 
299 


REMÍ11 ЅРАСЕЅ)* FILES WRITTEN * 


:rem 106 
REMÍ11 SPACES}* FROM KEYBOARD * 

:rem 80 
CLR :rem 121 
INPUT"ÍCLR)(Í5 DOWN]NO. OF ITEMS IN FI 
LE";N :rem 114 
DIMWS (N+1) :rem 233 


INPUT" { DOWN} FILENAME"; NAMES : IFNAMES=" 
+1"THEN END :rem 44 
PRINT" {DOWN}ON THE PROMPT, ":PRINT" TYP 
E EACH ITEM,":PRINT"FOLLOWED BY {RVS} 
RETURN(OFF]" :rem 67 
ОРЕМ1,1,1,МАМЕ5 :rem 41 
FORX=@TON : INPUTWS(X):PRINT#1,WS$(X):IF 
WS (X)<>"-1"THEN NEXT :rem 4 
CLOSE] : FORX=@TON: PRINTWS (X) : NEXT 


:rem 122 
PRINT"HIT ANY KEY" :rem 36 
GETAS:IFAS=""THEN 270 :rem 85 
GOTO286 :rem 101 
END :rem 114 


Program 2: Files Written From Data 


500 
510 


520 
540 


550, 


551 


REM{1Ø SPACES}* FILE WRITTEN *:rem 26 
REM{1@ SPACES}*{2 SPACES}FROM DATA 


{3 SPACES}* :rem 28 
REM :rem 123 
DATAW21, DELIGHT, CHAPTER, FARTHER, BUILT 


, JOYFUL, STORIES :rem 11 
DATABOUGHT,SCARF,FILLED,SAILED,REMAIN 
,CLOAK, PLACED, DRIVING, FEAST, STRONG, -1 

геш 150 
DATAW22,FLYING, SOMETIMES, HIGHWAY, SNOW 
ING, CLOSING :rem 16 


560 


DATABEDTIME,PUSHED,BRUSHES,DREAMING,B 
OOKCASE , PULLED :rem 196 


576 DATAAIRPLANE, BUYING, SPENDING, SKATED, D 

ЕСЕМВЕК,-1,%1 :rem 221 
580 READNAME$ :R$=CHR$ (13) :rem 161 
585 IFNAMES="+1"THENGOTO659 :rem 86 
590 OPEN1,1,1,NAMES :rem 44 
600 READWRD$:PRINT£1,WRD$;R$ :rem 204 
620 IFWRDS<>"-1"THEN699 :rem 25 
630 СІО5Е1 :rem 64 
640 GOTO589 :rem 112 
650 CLOSE1:END :rem 83 
Program 3: File Reader 
300 REMÍ11 SPACES}*{4 SPACES}FILE- 

(4 SPACES}* :rem 235 


310 БКЕМ{11 SPACES}*{3 SPACES}READER 
{3 SPACES]* :rem 127 
350 INPUT"{CLR}{8 DOWN}WHAT FILE";NAMES 
ігеп 91 
360 IFNAMES="+1"THEN END :rem 80 
370 ОРЕМ1,1,0,МАМЕ9:М-0:рІМИ5(16) :rem 99 
380 INPUT#1,WS(N) :N=N41 :rem 52 
390 IFWS(N-1)="-1"THEN419 :rem 76 
400 GOTO380 :rem 104 
410 CLOSEl:FORX-ÜTO(N-1):PRINTW$(X):NEXT 
:rem 38 
420 PRINT"HIT ANY KEY" :rem 29 
430 GETAS:IFAS=""THEN439 :rem 81 
450 RUN356 :rem 38 
460 END :rem 113 


3-D Tic-Tac-Toe 


See article on page 50. 


BEFORE TYPING... 
Before typing in programs, please refer to "How 
To Type COMPUTE" Gazette Programs,” “А 
inner's Guide To Typing In Programs," and 
"rhe Automatic Proofreader” that appear before 
the Program Listings. 


Program 1: 
3-D Tic-Tac-Toe—64 Version 


1 


2 


5 


PRINT"(CLR]":POKE53281,0:POKE53280,4 
:rem 40 

DIMDI (28) :FORI=1T027: READX1 :X2=X2+X1:DI 

(I+1)=X2:NEXTI:DI(1)=@ :rem 82 

PRINTTAB(9)"{RED}{3 SPACES}{RVS}£ 

{6 SPACES}{OFF}{2 SPACES}{RVS} 

{6 SPACES)E*3" :rem 193 

PRINTTAB(9)"{2 SPACES}{RVS}£{8 SPACES} 

{OFF} {RVS}{7 SPACES}k*]" :rem 166 

PRINTTAB(9)" {RVS}£{9 SPACES} {OFF} 

{RVS}{8 SPACES) E*3" :rem 167 

PRINTTAB(9)"{BLU}{RVS}£{6 SPACES) (RED) 

{4 SPACES} {OFF} {RvS}{3 SPACES) (BLU) 

(6 SPACES] K*3" :rem 2 

PRINTTAB(9)"{RVS}{8 SPACES} {RED} 

{3 SPACES}{OFF} {RVS}{3 SPACES}{BLU} 

(7 sPACES) E*3" :rem 59 


10 PRINTTAB(9)"{RVS}{2 SPACES) (RED) {OFF} 


£{2 SPACES)ÍRVS)£(BLU) {2 SPACES} 
TRED)(3 SPACES}{OFF} {RVS}{3 SPACES) 
{BLU} {2 SPACES}{OFF} (RvS)(RED) 

(3 SPACES}{BLU}{2 SPACES]" :rem 148 


11 PRINTTAB(9)"{4 SPACES}{RVS} (RED) £ 


12 


ТЗ 


14 


X5 


16 


ДЕ 


18 


1%) 


20 


25 
30 
35 
52 
53 


54 
55 


56 
5 
58 
59 


60 


{BLU} {2 SPACES}{RED}{3 5РАСЕ5)(ОғЕ) 
{RVS} {3 SPACES}{BLU}{2 SPACES} {OFF} 
{RVS}{RED}{3 SPACES}{BLU}{2 SPACES}" 
:rem 72 
PRINTTAB(9)"{3 SPACES}{RVS}{RED}£ 
{2 SPACES}{BLU}{2 SPACES}{RED} ` 
{3 SPACES}{OFF} {RVS}{3 SPACES) (BLU) 
{2 SPACES}{OFF} {RVS}{RED}{3 SPACES} 
{BLU}{2 SPACES}" :rem 73 
PRINTTAB(9)"{3 SPACES}{RVS}{5 SPACES} 
{RED}{3 SPACES}{OFF} {RVS}{3 SPACES} 
{BLU}{2 SPACES}{OFF} {RVS}{RED} 
{3 SPACES}{BLU}{2 SPACES}" :rem 102 
PRINTTAB(9)"{3 SPACES}{RVS}{5 SPACES} 
{RED}{3 SPACES}{OFF} {RVS}{3 SPACES} 
{BLU}{2 SPACES}{OFF} {RVS}{RED} 
{3 SPACES}{BLU}{2 SPACES}" :rem 103 
PRINTTAB(9)"{2 SPACES}{RVS}{RED}£ 
ІЗ SPACES}{BLU}{2 SPACES}{RED} ` 
{3 SPACES}{OFF} {RVS}{3 SPACES}{BLU} 
{2 SPACES}{OFF} {RVS}{RED}{3 SPACES} 
{BLU}{2 SPACES}" :rem 76 
PRINTTAB(9)" {RVS}{RED}£{4 SPACES} 
{BLU}{2 SPACES}{RED}{2 SPACES} {OFF}£ 
{SPACE} {RVS} {3 SPACES}{BLU}{2 SPACES) 
{RED} {4 SPACES}{BLU}{2 SPACES}":rem 82 
PRINTTAB(9)"{RVS}{RED}£{5 SPACES} 
{BLU}{2 SPACES}{RED} {OFF}£{2 SPACES} 
{RVS}{3 SPACES}{BLU}{2 SPACES}{RED} 
{4 SPACES}{BLU}{2 SPACES}" :rem 83 
PRINTTAB(9)"{RVS}{2 SPACES}{RED} 
{4 SPACES) {BLU} (2 SPACES] (RED) {OFF} £ 
{3 SPACES]E*3ÍíRVS)(2 SPACES) (BLU) 
(2 SPACES] (RED) (4 SPACES) (BLU) 
(2 SPACES]" :rem 138 
PRINTTAB(9)"{RVS}{7 SPACES } {OFF }£ 
{5 SPACES) (RED])E*3(RVS) (BLU) 
{7 SPACES} {OFF}£" :rem 80 
PRINTTAB(9)"E*3T[RVS](5 SPACES) {ОРЕ} 
{7 SPACES)(RED)E*3(RVS) (BLU) (6 SPACES} 
torr])£" :rem 39 
PRINTTAB(9)"{DOWN}{CYN}T I C{RED} cc 
{CYN}T A C{RED} CC{CYN} T О E":rem 107 
PRINTTAB(12)"{4 DOWN)E33FIREBUTTON TO 
[SPACE } PLAY" :rem 116 
IF (PEEK (56321)AND16)=16AND (PEEK (5632ø) 


AND16)=16THEN35 :rem 172 
PRINT"[CLR]E63"; :POKE53281,0:DIMP(27): 
О=1 :rem 124 
РН-54272:;С0-32:СС-0:5-54272 :rem 176 
POKES+13,24@ :rem 66 


Р(1)-1119:Р(2)-1122:Р(3)-1125:Р(4)-120 
1:Р(5)-1204:Р(6)-1207:Р(8)-1286 


:rem 198 
Р(7)-1283 :rem 78 
Р(9)-1289:Р(10)-1439:Р(11)-1442:Р(12)- 


1445:Р(13)-1521:Р(14)-1524:Р(15)-1527 
:rem 10 
Р(16)-1603:Р(17)-1606:Р(18)-1609:Р(19) 
-1759:;Р(20)-1762:Р(21)-1765 :rem 10 
Р(22)-1841:Р(23)-1844:Р(24)-1847:Р(25) 
-1923:Р(26)-1926:Р(27)-1929 :rem 20 
FORD-1TO2:PRINT"PLAYER %";р;:ІМРИТРІ5( 
D) :NEXT:CO(1)=4:CO(2)=5 :rem 161 


61 FORV-1TO2:PL$(V)-LEFTS(PLS$(V),9):NEXT 

:rem 170 
63 M(2)=87:M(1)=86:L=1 :rem 141 
65 INPUT"HOW MANY ROUNDS";RD :rem 14 
70 0(1)-56321:/(2)-56320 :rem 203 
90 PRINT"(CLR]ÍRED]";:FORV-1TO3  :rem 223 
100 PRINTTAB(12)"K9 Q3" :rem 177 
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110 
120 
130 
146 
150 


160 


170 


15715) 
176 
177 
33@ 
340 
350 


351 
360 
380 
390 
400 
410 
415 
420 
425 
430 
433 
435 
440 
441 
442 
459 
469 
478 


475 
476 


477 
480 
481 
482 


485 
490 


495 
500 


510 
740 
745 


PRINTTAB(12)"(RVS)K*3(OFF](2 SPACES]M 
(2 SPACES]MÍ2 SPACES]M" :rem 216 
PRINTTAB(12)"E*3(RVS)E*3(orFF)Ke3 MEe3 
мкая M" :rem 164 
PRINTTAB(13)"E*3(RVS])E*3(OFF])E2 TIM 
E2 т3мЕ2 тім" :rem 140 
PRINTTAB(14)"E*3(RVS)E*3(OFF)K03 MEG 
мкея м" :rem 168 
PRINTTAB(15)"E*3(RVS)E*3(OFF)E2 TIM 
E2 T3ME2 TJM" :rem 144 
PRINTTAB(16)"K*J{RVS}k*J {OFF} 

{2 SPACES}M{2 SPACES}M{2 SPACES }М" 


:rem 192 
PRINTTAB(17)"K*3(RVS)Í9 SPACES}" 

:rem 234 
ONVGOTO176,177,330 :rem 244 
PRINT"(BLU]";:NEXT :rem 66 
PRINT" {YEL}";:NEXT :rem 194 
R=1 :rem 986 
РОКЕР(О),160:РОКЕР(О)-РН,1 :rem 242 


PRINT" {НОМЕ } {YEL} ROUND: £63" ; К; "ІНОМЕ) 
(6 DOWN]K63":PRINTPLS(L);"'S TURN"; 


:rem 52 
FORV-1TO12-LEN(PL$(L))-2:PRINT" ";:NE 
XT :rem 34 
J=15-(PEEK(U(L) )AND15) :rem 165 
IFJ=8THENPP=1 :GOTO419 :rem 46 
IFJ-A4THENPP--1:GOTO420 :rem 89 
GOTO459 зет ШТ 
IFO-27THENO-26:NX-CU:NC-CC:GOTO433 

:rem 140 
NX=PEEK(P(0+1) ) :NC=PEEK(P(0O+1)+PH) :GO 
Т0430 :rem 214 
ІҒО-ІТНЕМО-2:МХ-С0:МС-СС:60Т0433 

:rem 31 
NX-PEEK(P(0-1)):NC-PEEK(P(O-1)-*PH) 

ігеп 209 
РОКЕР(О),С0:РОКЕР(О)-РН,СС :rem 72 
О=О+РР :гет 64 
CU=NX : CC=NC :rem 165 
РОКЕР(О),160:РОКЕР(О)-РН,1 :rem 243 


POKES-*11,17:POKES-*8,70:POKES-*24,15 

:rem 205 
FORD-1TO290:NEXT:POKES-*24,0:POKES-*11,1 
6:GOTO460 :rem 67 
FORD-1TO15:NEXT :rem 189 
POKEP(0O),CU:POKEP(0O)+PH, CC: FORD=1T045 
: NEXT: POKEP(0O),16@:POKEP(0O)+PH,1 


:rem 56 
J=PEEK(U(L) ) AND16:IFJ=16THEN369 

:rem 67 
IFCU=32THEN489 :rem 52 


POKES+11,17:POKES+8,14:POKES+24,15 
:rem 211 
ҒОКр=1Т0500:МЕХТ:РОКЕ5+24,0:РОКЕЅ+11, 
16:60Т0360 :rem 125 
POKEP(O),M(L):POKEP(O)-*PH,CO(L) :CU=M( 
ж) Сее его) (18) :rem 109 
POKES-*11,17:POKES-8,200:POKES-*24,15 


srem 252 
FORD=1T025@:NEXT: POKES+11,16:POKES+24 
‚@ гет 111 
А=@:В=@:С=@ :rem 34 


RESTORE:READX:FOR I-1TODI(O)-*13:READX 
,Y:NEXTI :rem 155 
FORI=DI(0)+1TODI(0+1) :rem 196 
READ X,Y: IF (PEEK(P(X) )=M(L) ) AND( PEEK ( 


P(Y))=M(L))THEN В-Х:С-Ү:А-О :rem 25 
NEXTI :rem 30 
IFA=9THEN9 23 :rem 165 


PRINT" {HOME}{7 DOWN}";PL$(L);" WINS!" 
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746 


747 
756 


760 
770 
780 
790 
800 
920 
923 
aS 
930 
940 
945 
946 
950 
955 
95 
960 
970 
980 
990 


1000 
1080 


1100 
1105 
1110 
TELS 
1129 


1125 


1130 
S 
1149 
1145 


1150 


18035 
1169 
1165 
1176 


2215715 


7 :rem 175 
FORV-1TO12-LEN(PL$(L))-2:PRINT" ";:NE 
xT :rem 42 
SC(L)=SC(L)+1 :rem 161 


T=255:POKES+11,17:POKES+24,15:FORX=1T 
010 arem 112 
H-INT(16*RND(1)) :rem 85 
POKEP(A)+PH,H :rem 230 
POKEP(B)+PH,H :rem 232 
POKEP(C)+PH,H :rem 234 


POKES-*8,T:FORD-1TO350:NEXT:T-T-26:NEX 
T:POKES-*11,16:POKES-*24,0:GOTO920 


:rem 68 
FORO-1T027:POKEP(O),32:POKEP(O) *PH,O : 
NEXT р :гет 38 
IFL-l1THENL-2:GOTO939 :rem 224 
L=1 :rem 90 
ТЕА=@ТНЕМ35@ :rem 160 
С0-32:СС-0:МХ-0:МС-0:О-1 :rem 128 
R=R+1:IFR>RDTHEN95G :rem 155 
GOTO359 :rem 116 
PRINT" {CLR}{7 DOWN}{17 SPACES]" 

:rem 121 
PRINT"{9 RIGHT}{3 DOWN}FINAL SCORE" 

:rem 146 
PRINT"{9 RIGHT} {YEL}k11 v3(GRN]" 

:rem 20 
PRINT"(2 RIGHT}"PLS$(1);":";SC(1) 

:rem 248 
PRINT"(DOWN)(2 RIGHT}"PL$(2);":";SC(2 
) :rem 12 


PRINT"(DOWN)Í2 RIGHT]K33FIREBUTTON ТО 
PLAY AGAIN" :rem 142 
IF(PEEK(U(1))AND16)-16THENIF(PEEK(U(2 
) )AND16) -16ТНЕМ990 :rem 185 
POKE198,0:RUN :rem 29 
БАЛАП ДОМНА БА Т КА ЛА ETAT MIO 
ДАЛА etes ОД :rem 36 


DATA 2,3,4,7,5,9,10,19,13,25,11,21,1 
4,271,1,3,5,8,11,20 :rem 28 
DATA 74:26;2)1,619,5,7,12,/217 1520, 1 
APPS | MIU 95/46 :rem 112 
DATA 14,24,13,22,1,7,1,9,2,8,3,7,4,6 
714/235 05/24 :rem 2 
DATA 3,9,14,22,4,5,1,4,3,5,8,9,16,25 
О NY AAT pale, Aik :rem 55 
DATA 7,9,2,5,17,26,14,20,1,5,376,7,8 
plein 21] o 5 о 3:26:36) :rem 95 
DATA 11,12,13,16,14,18,1,19,10,12,14 
оо) 210596 3, o gt :rem 30 


DATA 14,16,15,18,10,11,3,21,10,16,14 
gd :rem 74 
DATATA 2201, 25, ТӘ ]:2] Та до 
Cr LI ЛБ 25 2X9 :rem 11 
DATA 1,27,3,25,4,24,6,22,7,21,8,20,9 
"11655 27508 :rem 127 
DATA 13,14,6,24,3,27,9,21,10,13,18,1 
7,12,14,7,25 :rem 18 
DATAL1T7147516718/18/526/719/525/, ШӨП 142/711! 
5,10,14,16,17 :rem 74 


DATA 9,27,20,21,22,25,23,27,1,10,9,1 
АЗ: :rem 218 
DATA 23,26,2,11,8,14,19,21,19,20,27, 
24,23,25 :rem 80 
ЮАТА WA Sp ОТЫ ТА ТІЛЕ WO pd 2910200; 
А103. 6714 :rem 174 
DATA 19,27,20,26,21,25,22,24,5,14,22 
7237521521 :rem 127 
DATA 6,15,4,14/23,21,26,27,19,22,7,1 
67 Л ЛЗ ӘРЕ; :rem 236 


1180 DATA 3,14,20,23,25,27,8,17,2,14,19,2 


Стаб РАТА ое 3715,7, 17,114 


3,21,24,25,26 :rem 69 


:rem 141 


Program 2: 
3-D Tic-Tac-Toe—VIC Version 


Memory expansion (amy amount) required. 


109 
110 


120 
138 


140 
150 


160 


170 


180 


190 


210 


220 


230 


240 


250 


260 


270 


280 


PRINT" {CLR}":POKE36879,15:DIMP(27) 
srem 31 
DIMDI (28) : FORI=1T027:READX1:X2=X2+X1: 
DI (1+1)=X2:NEXTI:DI(1)=6 :rem 178 
DD=37154:P1=37151:P2=37152 :rem 80 
PRINT" {RED}{3 SPACES}{RVS}£ 
{5 SPACES}{OFF}{2 SPACES}{RVS} 
{5 SPACES}«*}" :rem 191 
PRINT" {2 SPACES}{RVS}£{7 SPACES} 
{OFF} {RVS}{6 SPACES }k*]" :rem 164 
PRINT" {RVS}£{8 SPACES}{OFF} {RVS} 
{7 sPACES)E* 3" :rem 165 
PRINT"(BLU)(RVS)£(6 SPACES) {RED} 
(3 SPACES}{OFF} TRVS}{2 sPACES) (BLU) 
(6 SPACES)E*3" :rem @ 
PRINT"ÍRVS])(Í8 SPACES}{RED}{2 SPACES} 
{OFF} {RVS}{2 SPACES}{BLU}{7 SPACES} 
E*3" :rem 57 
PRINT"(RVS)Í2 SPACES}{RED} (OFF])£ 
(2 SPACES}{RVS}£{BLU}{2 SPACES)TRED]) 
{2 SPACES}{OFF} {RVS}{2 sPACES) (BLU) 
{2 SPACES) (OFF) {2 SPACES) (RVS) (RED) 
(2 SPACES) (BLU) (2 SPACES}" :rem 107 
PRINT"{4 SPACES}{RVS}{RED}£ {BLU} 
{2 SPACES}{RED}{2 SPACES}{OFF} {RVS} 
(2 SPACES}{BLU}{2 SPACES} {OFF} 
{2 SPACES}{RVS}{RED}{2 SPACES} {BLU} 
{2 SPACES}" :rem 31 
PRINT"{3 SPACES} {RVS}{RED}£ 
{2 SPACES}{BLU}{2 SPACES}{RED} 
{2 SPACES}{OFF} {RVS}{2 SPACES}{BLU} 
{2 SPACES}{OFF}{2 SPACES}{RVS}{RED} 
{2 SPACES}{BLU}{2 SPACES}" :rem 23 
PRINT" {3 SPACES}{RVS}{5 SPACES} {RED} 
{2 SPACES}{OFF} {RVS}{2 SPACES}{BLU} 
{2 SPACES}{OFF}{2 SPACES}{RVS}{RED} 
{2 SPACES}{BLU}{2 SPACES}" :rem 52 
PRINT"{3 SPACES}{RVS}{5 SPACES}{RED} 
{2 SPACES}{OFF} (RVS)Í2 SPACES}{BLU} 
{2 SPACES}{OFF}{2 SPACES}{RVS}{RED} 
{2 SPACES}{BLU}{2 SPACES}" :rem 53 
PRINT"{2 SPACES} (RVS) (RED) £ 
(3 SPACES}{BLU}{2 SPACES)(RED 
(2 SPACES}{OFF} {RVS}{2 SPACES}{BLU} 
{2 SPACES}{OFF}{2 SPACES) (RVS) {RED} 
{2 SPACES}{BLU}{2 SPACES}" :rem 26 
PRINT" {RVS}{RED}£{4 SPACES} (BLU) 
{2 SPACES}{RED}{2 SPACES}{OFF} {RVS} 
{2 SPACES}{BLU}{2 SPACES}{RED} 
{4 SPACES}{BLU}{2 SPACES}" :rem 119 
PRINT" {RVS}{RED}£{5 SPACES}{BLU} 
{2 SPACES}{RED} ToFF}£ {RVS} 
{2 SPACES}{BLU}{2 SPACES}{RED} 
{4 SPACES}{BLU}{2 SPACES}" :rem 33 
PRINT" {RVS}{2 SPACES}{RED}{4 SPACES) 
{BLU} {2 SPACES}{RED}{OFF}£{2 SPACES} 
{RVS}{2 SPACES}{BLU}{2 SPACES}{RED} 


{4 SPACES}{BLU}{2 SPACES}" :rem 121 
PRINT" {RVS}{7 SPACES} {ОРЕ} 

(3 SPACES) (RED) E*3(RVS) {BLU} 

(7 SPACES) {OFF}£" :rem 36 


PRINT"E*3(RVS])(5 SPACES)(OFF)£ 
(5 SPACES) (RED) E*3(RVS)ÍBLU) ^ 
{6 SPACES} (oFF)£" :rem 254 


296 
300 
310 
320 
325 
330 
340 
350 
366 
370 


380 


390 


400 
410 
420 
430 
450 
460 
470 
480 
490 
586 
510 


520 


530 


540 
550 


PRINT"(DOWN)(CYN)T I C{RED} с (сүм)т 
{SPACE}A C{RED} CÍCYN) Т О Е": геп 184 
PRINTTAB(2)"(DOWN)K33FIREBUTTON TO PL 
AY" :rem 64 
POKEDD, 255:P=PEEK(P1):IF -((PAND32)-0 
)<>1 THEN 310 :rem 204 
PRINT"(CLR]K63"; :POKE36879,10:0-1 
:rem 203 
H-256*PEEK(648) : PH-30720 : IFPEEK(648) = 


l6THENPH-33792 :rem 154 
CU=32 : CC=6:S=36874:VO=36878  :rem 255 
РОКЕ5+13,240 :rem 106 


P(1)=31+H:P(2)=34+H:P(3)=37+H:P(4)=77 
+H:P(5)=86+H:P(6)=83+H:P(7)=123+H 
:rem 163 
Р(8)-126-Н:Р(9)-129-Н:Р(10)-207-Н 
:rem 160 
P(11)=210+H:P(12)=213+H:P(13)=253+H:P 
(14)=256+H:P(15)=259+H :rem 11 
Р(16)-299-н:Р(17)-302-Н:Р(18)-3054Н:Р 
(19)=383+Н:Р(20)=386+Н:Р(21)=389+н 
:rem 190 
P(22)=429+H:P(23)=432+H:P( 24) =435+H:P 
(25)=475+H:P(26)=478+H:P(27)=481+H 
:rem 191 
FORD=1T0O2:PRINT"PLAYER #";D;:INPUTPLS 
(D) :NEXT:CO(1)=4:CO(2)=5 :rem 207 
FORV-1TO2:PL$(V)-LEFTS$(PL$(V),8):NEXT 


:rem 215 
M(2)=87:M(1)=86:L=1 :rem 186 
INPUT"HOW MANY ROUNDS";RD :rem 58 
PRINT" {CLR} {RED}"; : FORV-1TO3 :rem 15 
PRINT"(7 SPACES}£9 Q3" :rem 47 


PRINTTAB(6)"(RVS)E*3(OFF)(2 5РАСЕ5)М 

{2 SPACES}M{2 SPACES]M" :rem 180 
PRINTTAB(6)"E*3(RVS)E*3(OFF)EG3 MEG3 

(5РАСЕ)МЕӨЯ M" :rem 128 
PRINTTAB(7)"E*3(RVS)E*3(OFF]E2 TIM 

E2 TIMK2 TIM" :rem 104 
PRINTTAB(8)"K*3(RVS)E*3(OFF)E3 MKe3 

[SPACE]ME0G3 м" :rem 123 
PRINTTAB(9)"E*3(RVS)E*3(OFF)E2 TIM 

Е2 т3мЕ2 TJM" :rem 99 
PRINTTAB(19)"K*3(RVS)E*3(OFF) 

(2 SPACES}M{2 SPACES}M{2 5РАСЕ5)М" 


:rem 186 
PRINTTAB(11)"K*3(RVS)Í(9 SPACES) (oFF) " 
7 :rem 177 
ОМУС0Т0550,560,570 :rem 238 
PRINT" {BLU}"; :NEXT :rem 62 
PRINT" {GRN}"; :NEXT :rem 62 
Е-1 :rem 92 
РОКЕР(О),160:РОКЕР(О)-РН,2 :rem 249 


PRINT" {HOME}{4 DOWN} {YEL}ROUND:k69";R 


:rem 76 
PRINT" {HOME}{6 DOWN}"; :FORV=1TO11:PRI 
NT" ";:NEXTV :rem 26 


PRINT" {HOME}{5 DOWN}":PRINTPLS(L);"'S 
":PRINT"TURN" :rem 69 
POKEDD,127:P-PEEK(P2)AND128:J1--(P-0) 


:rem 110 
POKEDD,255:P-PEEK(P1):J2--((PAND16)-9 
) :rem 142 
IFJl-lTHENPP-1:GOTO660 :rem 93 
IFJ2-1THENPP--]:GOTO680 :rem 142 
GOTO769 srem 113 
IFO=27THENO=26 :NX=CU : NC=CC:GOTO719 

:rem 145 
МХ=РЕЕК(Р(0+1)) :NC=PEEK(P(0+1)+PH) :GO 
Т0700 :rem 217 
IFO-l1THENO-2:NX-CU:NC-CC:GOTO719 

геш 37 
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690 NX-PEEK(P(0O-1)):NC-PEEK(P(O-1)-*PH) 
:rem 213 
700 POKEP(O),CU:POKEP(O)-*PH,CC :rem 72 
710 О=О+РР :rem 62 
720 CUZNX:CC-NC :rem 162 
730 РОКЕР(О),160:РОКЕР(О)-РН,1 :rem 245 
740 POKEVO,15:POKES,179 :rem 129 
750 FORD=1T029:NEXT: POKEVO, 9:GOTO779 
:rem 46 
768 FORD-1TO15:NEXT :rem 184 
770 POKEP(O),CU:POKEP(O)-*PH,CC:FORD-1TO45 
:МЕХТ:РОКЕР(0),160:РОКЕР(О)+РН,1 
:rem 60 
780 POKEDD,255:P-PEEK(P1):J- -((PAND32)-0 
):ІЕ7<>1ТНЕМ610 :геп 229 
790 IFCU-32THEN820 :rem 50 
808 POKEVO,15:POKES,160 :rem 125 
810 FORD-1TO5990:NEXT:POKEVO,0:GOTO619 
:rem 87 
820 POKEP(O),M(L):POKEP(O)-*PH,CO(L):CU-M( 
L):Cce-2co(L) :rem 107 
830 РОКЕУО,15:РОКЕ5,200 шет 123 
840 FORD=1T0259:NEXT: POKEVO,9 :rem 82 
850 А-0:В-0:С-0 :rem 30 
860 RESTORE:READX:FOR 1- 1TODI(0O)+13:READX 
,Ү:МЕХТІ :rem 156 
878 FORI-DI(O)-*1TODI(O-*1) :rem 193 
888 READ X,Y:IF(PEEK(P(X))-M(L))AND(PEEK( 
P(Y))2M(L))THEN В-Х:С-Ү:А-О :rem 36 
890 NEXTI :rem 41 
900 IFA-OTHEN109010 :rem 199 
910 РВІМТ" {НОМЕ } {14 DOWN)Í19 SPACES]" 
:rem 108 
920 РВІМТ" {НОМЕ } {14 DOWN)";PL$(L):PRINT"W 
INS!"; :rem 173 
938 SC(L)=SC(L)+1 :rem 155 
940 T=255:POKEVO,15:POKES,133::FORX=1TO19 
:rem 14 
950 H-INT(16*RND(1)) :rem 86 
960 POKEP(A)+PH,H :rem 231 
970 POKEP(B)+PH,H :геп 233 
980 POKEP(C)+PH,H :геп 235 
990 POKES,T:FORD-1TO350:NEXT:T-T-26:NEXT: 


1000 


1010 
1020 
1030 
1040 
1050 
1060 


1070 


1080 
1090 
1100 
1110 
1120 


1125 
1128 
1129 


1130 
1140 


1150 


1160 


POKES,160:POKEVO,0:GOTO1008 :геп 117 


FORO-1T0O27:POKEP(0),32:POKEP(O) *PH, Ø 
:NEXT :rem 76 
IFL=1THENL=2 :GOTO1939 :rem 44 
L=1 :rem 125 
IFA=9THEN59@ :rem 206 
CU-32:CC-20:NX-0:NC-0:0-1 :rem 168 
R=R+1: 1FR> RDTHEN1976 :rem 233 
PRINT" {HOME}{14 DOWN}{11 SPACES}":PR 
INT" {5 SPACES}":GOTO599 :rem 181 
PRINT" {CLR}{7 DOWN}{17 SPACES}" 

:rem 163 
PRINT"{3 DOWN}FINAL SCORE" :rem 179 
PRINT" {YEL}k11 Y3ÍGRN]" :rem 52 
PRINTPL$(1);":";SC(1) :rem 157 
PRINTPL$(2);":";SC(2) :rem 160 
PRINT"(DOWN]FIREBUTTON TO PLAY 
(4 SPACES }AGAIN, (E) TO END" :rem 29 
POKEDD, 255 :P=PEEK (P1) :rem 6 
GET XX$:1F XX$-"E" THEN END :rem 233 


IF -((PAND32)-0)«»1 THEN 1125 

:rem 195 
POKE198,90:RUN :rem 33 
DATA 7,4,7,4,5,4,7,4,7,4,5,4,5,12,5, 
4,5,4,7,4,7,4,5,4,7,4,7 :геп 33 
DATA 2,3,4,7,5,9,10,19,13,25,11,21,1 
4:27,1,3,5,8,11,20 :rem 33 
DATA 14,26,2,1,6,9,5,7,12,21,15,27,1 
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4;25,11,/19,5%6 :rem 113 
1178 DATA 14,24,13,22,1,7,1,9,2,8,3,7,4,6 
“472315124: :rem 8 
1180 DATA 3,9,14,22,4,5,1,4,3,5,8,9,16,25 
"ІЗ ДӘУІТ, 277.) ДА 2: :rem 57 
1198 DATA 7,9,2,5,17,26,14,20,1,5,3,6,7,8 
28/27 085720] lly pA) M ALS) :rem 102 
1200 DATA 11,12,13,16,14,18,1,19,10,12,14 
pb np р e ples 21 :rem 24 
1210 DATA 14,16,15,18,10,11,3,21,10,16,14 
,15 :rem 73 
1220 DATA 4,22,1,25,7,19,10,18,11,17,12,1 
ӨЗ pull 5 AR 26 :rem 6 
1230 DATA 1,27,3,25,4,24;6,22,7,21,8,20,9 
„ТО ла :гет 127 
1240 DATA 13,14,6,24,3,27,9,21,10,13,18,1 
7/1502 03125 ТУРІ :rem 14 
1250 DATA 11,14,16,18,8,26,9;25;7,27,12,1 
ЕТЕП а КАВ; :rem 75 
1260 DATA 9,27,20,21,22,25,23,27,1,10,9,1 
"Ap ats sva :rem 215 
1270 DATA 23,26,2,11,8,14,19,21,19,20,27, 
24,23,25 :rem 82 
1280 DATA 12,3,9,15,7,14,1,11,19,25,23,24 
,4,13,6,14 :rem 172 
1290 DATA 19,27,20,26,21,25,22,24,5,14,22 
Озода 20 :rem 130 
1300 DATA 6,15,4,14,23,21,26,27,19,22,7,1 
(ӛзі 11526021127) :rem 226 
1310 БАТА 3,14,20,23,25,27,8,17,2,14,19,2 
9/n20572/452 5122/6; :rem 64 
1320 DATA 9,18,3,15,7,17,1,14 :rem 132 


Shape Match For 
VIC And 64 


VIC users must have at least 8K memory expansion. 
See article on page 84. 


50 REM **[11 SPACES}INITIALIZE{7 SPACES}* 
:rem 227 
52 DIM CL(290,420) :rem 19 
53 PRINT" {CLR} {BLU}":SYS65517:WI=PEEK(781 
):IFWI-22THENWI-Ü : POKE36879, 238:SS=2:P 
H=.5 :rem 163 
54 IF WI-ÜTHENAA$-"VIC":BB$-"VIC":GOTO60 
:rem 91 
55 РОКЕ53280,1:РОКЕ53281,15:55-12:МІ-8:РН 
=1 :rem 5 
57 AAS="64{DOWN}{22 LEFT}":BB$="64" 
:rem 89 
60 IF МІ-й THEN CL(4,18)=1:CL(4,31)=2:CL( 
10,18)-3:С1.(10,31)-4:С60Т080 :rem 108 
63 FORA=6TO12STEP6 : FORB=17TO33STEP16:S=64 
6:POKES,SS :rem 40 
70 T=T+1:CL(A,B)=T:NEXTB,A :rem 42 
80 PRINT"{6 DOWN}";:PRINTTAB(WI+5)"{BLK}S 
HAPE MATCH" :rem 123 
190 GOSUB3000:REM **{2 SPACES} INSTRUCTION 
5{3 SPACES}** :rem 88 
200 СО50В1000:КЕМ ** PRINT BOARD ** 
:rem 142 
210 FORT=1TO1999 : NEXT :rem 25 
300 ВЕМ kkkkkkkkkkkkkkkkkkkkkkkkkkkkkxkk 
:rem 141 
302 REM **{8 SPACES}SELECT SHAPES 
(6 SPACES] ** :rem 165 


305 REM FERRER kk k kk KKK RK KER KR KK KKK ke ee 


:rem 146 


306 
310 


320 
340 


345 


348 


349 


350 


355) 
360 


365 
370 


Sub 
380 
383 
385 


500 
550 
6080 


602 
604 


605 
610 


613 


615 
620 


625 
630 


640 
650 


660 
670 
673 
675 
686 
683 
685 
687 
700 


702 
704 
710 


75 
720 


K-RND(-TI) :rem 32 
K=INT (RND(@)*4)+1:IFK=KKTHEN310 

:rem 33 
REM :rem 121 
FORT-1TO03:GOSUB2008 : BOS=SHS$(T) :A=4+T: 
B=18:PRINT" {HOME }":GOSUB1179:NEXT T 

trem 29 
GOSUB1180:REM **{6 SPACES}DELAY 
{6 SPACES}** :rem 27 
IFWI-ÜTHENFORT-1TO3:GOSUB2120 : BOS=SHS$ 
(T) :A=4+T:B=32:PRINT" {HOME}" :rem 157 
IFWI-ÜTHENGOSUBl1179:NEXTT:GOTO355 

:rem 145 

FORT-1TO3:GOSUB2100:BO$-SH$ (T) :A=4+T: 
B-28:PRINT"(HOME]":GOSUB1170:NEXT Т 


:rem 32 
GOSUB1180 :rem 231 
FORT=1TO3 : GOSUB2200 : BOS=SHS$ (T) :A=19+T 


:B=18:PRINT" {HOME}":GOSUB1179:NEXT T 


:rem 78 
GOSUB1180 :rem 232 
FORT-1TO3:GOSUB23090:BO$-SH$(T):A-10-4T 


:B-28:PRINT"(ÍHOME]":GOSUB1170:NEXT T 


:rem 81 
С050В1180 :rem 233 
FORT-1TO3 :rem 26 
ONKGOSUB2000,2100,2200,2300  :rem 152 


BOS=SH$(T):A= 8+Т:В=3:РВІМТ" {НОМЕ }":С 


OSUB1170:NEXT T:KK-K :rem 23 

REM :геп 121 

REM END :rem 85 

REM ХХХХХХХХХХХХХХХХХХХ ХХХ Ж 
:rem 144 

REM **(10 SPACES}MOVE CURSOR 

(6 SPACES] ** :rem 57 


REM kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
:rem 148 
PRINT"ÍHOME]":C-1:FORNT-1TOl10:rem 159 
FORT-1TO15:BO$-CHR$(63):IFT/2-INT(T/2 
)THEN BO$-CHR$(18)-«*CHR$(63)-*CHR$(146) 


:rem 182 
IF WI-OTHEN ОМ C GOTO 660,673,683,687 
:rem 132 
ONC С0Т0670,675,680,685 :rem 185 


GOSUB1170:PRINT"(HOME]":FORTT-1TO 75: 
(8 5РАСЕ5)МЕХТТТ:Сс0Т0700 :rem 112 
NEXT T :rem 48 
BOS-CHR$(32):GOSUB1170:PRINT"(HOME]": 
(8 SPACES]FORTT-1TO 75:NEXTTT:C=C+1 
:rem 163 
ТЕС>4ТНЕМС=1 :rem 190 
NEXTNT:GOTO600:REM **{2 SPACES]REPEAT 


{2 SPACES] ** :rem 12 
жебе B-18:L-21:GOTO620 геш 111 
:GOTO620 теп 113 

:GOTO620 :rem 161 

:GOTO620 :rem 164 

:GOTO620 :rem 114 
A-4:B-31:L-3:GOTO620 :rem 113 
A=12 :B=33:L=4:GOTO629 :rem 165 
Az10:B-31:L-4:GOTO620 :rem 163 


REM ххх» КК К КККК Ж Ж ЖК Ж Ж 
:rem 145 

REM **{5 SPACES}CHECK FOR RESPONSE 

{4 SPACES]** :rem 217 

REM kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
:rem 149 

:rem 88 

:rem 7 


GETA$:1IFAS-""THEN 625 
IF AS="Q"THEN PRINT"(CLR]":END 
IFCL(A,B)-K ТНЕМ800:КЕМ CORRECT 

:rem 54 


740 


800 


802 


804 


810 


820 


825 
830 


835 
840 


850 


852 


854 


855 


860 


865 
870 
875 
880 
999 


1000 
1015 


1020 


1025 
1030 


1035 


1040 


1045 
1047 


1050 


1060 
1065 


1070 


1073 


с0Т0850: REM **{2 SPACES}WRONG 
(4 SPACES}** :rem 196 
REM kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
:rem 146 
REM **{9 SPACES}CORRECT ANSWER 
(4 SPACES} ** :rem 8 
REM kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk*kk 
:rem 156 
BOS="{RVS}{WHT}YES! THAT'S RIGHT!":A- 
18:GOSUB1174:PRINT"(HOME]" :rem 8 
BOS-"K53(RVS)ÍBLK) PRESS ANY KEY 
{WHT} (OFF]":A220:GOSUB1174:PRINT" 
(HOME] " :rem 190 


СЕТА5:ІҒАб-""ТНЕМ825 :rem 97 
FORA-1TO23:BO$-"(40 SPACES]":B-0:GOSU 
В1170 :rem 21 
PRINT"(HOME]":NEXT :rem 253 
GOTO208:REM **{2 SPACES}RE-PRINT BOAR 
D{2 SPACES}** :rem 230 
REM kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
:rem 151 
REM **{11 SPACES}WRONG ANSWER 
(4 SPACES}** :rem 136 


REM ** kk ckck ck ck ck ck k ck ck ok ck ck k ck ck ck k k k k k kk k k 


sem 155 
BOS$-CHR$(32):GOSUB1170:PRINT"ÍHOME]" 
:rem 236 
BO$z"(RVS]E53(BLK)SORRY...TRY AGAIN 
. {WHT} (OFF]":(7 SPACES]A-18:B-10:GO 
SUB1174:PRINT"(HOME]" :rem 151 
ҒОВИ-1Т01000:МЕХТ :rem 44 


BOS="{22 SPACES}":A=18:{6 5РАСЕ5)В-10 
: GOSUB1174: PRINT" {HOME }" :rem 181 
C=C+1:IFC>4THENC=1 :rem 33 
GOTO 625 :rem 118 
REMÍ2 SPACES ] * * X x koc Жж ek ke ke KK 
е :rem 123 
PRINT" {CLR} {BLU}" :rem 68 
IFWI-OTHENBO$-" (RVS]KA3***** ER33** 


*KS3":A-23:B-15:GOSUB 1170: PRINT"Í(HOME] 
":С0Т01030 :rem 76 
A-3:B-15:BO$-"(RVS]EA3 s ER жж 
******kES3(OFF)":GOSUBI1170:PRINT"ÍHO 
МЕ)" :rem 216 


REM grem 72 
FORT=1T05 :A=3+T:B=15 :rem 206 


IF МІ-ФТНЕМВО5-" (RVS]-(OFF) 

(5 SPACES}{RVS}-{OFF}{5 sPACES) (RVS) 
-(OFF)":GOSUB1170:PRINT"(HOME] ":GOTO 
1045 :rem 43 
BoS="{RVvS}B{OFF}{9 SPACES} {RVS}B 
{OFF} [9 SPACES} {RVS}B {OFF }":GOSUB117 
Ø:PRINT"{HOME}" :rem 206 


NEXT T :rem 93 
IFWI-OTHENA-9:B-15:BO$-" (ву5)ЕОЯ хх 
ž*+*****kWJ{OFF}":GOSUB117Ø:PRINT"{H 
OME } " : GOTO1Ø6Ø :rem 21 
А=9:В=15 :BO$=" {RVS} ОЯ аж kp ek 
*****EW3(OFF]":GOSUB1170:PRINT"(HOME 
1/00 :rem 10 
FORT=1T05 :A=9+T:B=15 srem 215 
IFWI-OTHENBO$-" {RVS}-{OFF} 

(5 SPACES}{RVS}-{OFF}T5 SPACES} {RVS} 
-Í(OFF]":GOSUB1170:PRINT"(HOME] " :GOTO 
1973 :rem 47 
BOS="{RVS}B{OFF}{9 SPACES}{RVS}B 
{oFF}{9 SPACES} {RVS}B{OFF}":GOSUB117 
@:PRINT" {HOME}" :rem 209 
NEXTT :rem 94 
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1078 


1080 


1090 
1093 


1095 
1100 


1110 
ШЕТ: 
117@ 
1174 
ЛБ 
1180 
2000 
2015 
2020 
2025 


2100 
2005 


2120 
2125 


2200 
2215 


2220 
2225 


2300 
2315 


2320 
2325, 
2330 
3000 


3020 
3030 
3040 


3050 


3100 


3110 


ЗЧ ы 


3120 


3130 


3140 


A-15:B-15:1FWI-ÜTHENBOS-" (RVS]KZ3*x* 
X***KEj3X****kEXX[(OFF])":GOSUBl1170:PRINT" 
(HOME]":GOTO1990 :rem 43 
BOS=" {RVS} RZJ A ** kkk kkk E J A k k k k Ge к 
EX3 {OFF }":GOSUB117Ø:PRINT"[HOME}" 


:rem 223 
BO$-T$:A-20:B-13:GOSUB1170:PRINT" 
( HOME] " :rem 12 
PRINTTAB(WI)"Í2 SPACES)TYPE (Q) TO O 
UIT.(HOME]" :rem 113 
RETURN :rem 175 
REM RRR KKK KKK KEKE KKK EKER REEL kkk 
:rem 147 
REM **{11 SPACES}PRINT{1®@ SPACES}** 
:rem 220 
REM kkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 
:rem 148 
FORI=1TOA:PRINT"{DOWN}"; :NEXT:PRINTT 
AB (B*PH) BOS: RETURN :rem 221 
FORI=1 TOA: PRINT" {DOWN}"; :NEXT: PRINTT 
AB (WI) BOS : RETURN :rem 125 
REM :rem 178 
FORX-1TO500 :NEXT: RETURN :rem 66 
REM :rem 166 
SHS(1)="{RED} {RVS}K3 UJ" :rem 224 
SH$(2)-" [RVS]Í3 SPACES}" :rem 153 
SH$(3)=" (RVS)Í3 SPACES) {ИНТ} " : RETUR 
N :rem 190 
REM :rem 167 
SH$(1)="{PUR}{RVS}{RIGHT} {RIGHT}" 
:rem 115 
SHS$(2)="{RVS}{3 SPACES}" :rem 154 
SHS$(3)="{RVS}{RIGHT} {RIGHT}{WHT}":R 
ETURN :rem 249 
REM :rem 168 
SH$(1)="{BLK} {RVS}{3 RIGHT}£" 
^ :rem 46 
SH$(2)="{RVS}{2 RIGHT}£ " :rem 126 
SHS(3)="{RVS}{RIGHT}£{2 SPACES} 
{WHT }" : RETURN 3s :rem 134 
REM :rem 169 
SH$(1)2"(BLU)(RVS)Í2 RIGHT)£K*3 
(RIGHT]" ":rem 157 
SHS(2)="{RVS}{RIGHT}£{2 SPACES} 
E*3" E :rem 65 
IFWI-B8THENSH$(3)-"(RVS]£(4 SPACES} 
E*3": RETURN @% :гет 23 
SH$(3)2"":RETURN :rem 166 
PRINT"(4 DOWN]";:PRINTTAB(WI)" 
(2 SPACES] INSTRUCTIONS (Y/N) ?" 
геш 1 
СЕТА5:ІҒА5-""ТНЕМ3020 :rem 173 
IFAS="N"THEN3 200 :rem 125 
IFAS-"Y"THENPRINT"ÍCLR]":GOTO 3100 
:rem 95 
сотоз@2@ :гет 198 


PRINTTAB(WI)"IN SHAPE MATCH,THE "АА$ 
;:PRINTTAB(WI)"WILL PRINT A SHAPE ON 
"7 :rem 167 
PRINTTAB(WI)"THE LEFT SIDE OF THE":P 
RINTTAB(WI)"SCREEN. THE STUDENT" 
:rem 206 
PRINTTAB(WI)"WILL FIND 4 DIFFERENT": 
PRINTTAB(WI)"SHAPES ON THE RIGHT" 
:rem 26 
PRINTTAB(WI)"SIDE OF THE SCREEN, ":PR 
INTTAB(WI)"ONE OF WHICH WILL" 


:rem 219 
PRINTTAB(WI)"MATCH THE SHAPE ON":PRI 
NTTAB(WI)"THE LEFT." :rem 201 


PRINTTAB(WI)"WHEN THE {RVS}?{OFF} IS 


182 COMPUTE!'s Gazette June 1984 


"SPRINTTAB(WI)"NEXT TO THE SHAPE HE" 

:rem 135 

3150 PRINTTAB(WI)"OR SHE THINKS IS":PRINT 
TAB(WI)"CORRECT, THE STUDENT" 


:rem 105 

3155 PRINTTAB(WI)"SHOULD PRESS ANY KEY." 
:rem 194 
3156 PRINTTAB(WI)"THE ";BB$;" WILL EVALUA 
ШЕШ :rem 58 


3160 PRINTTAB(WI)"THE ANSWER AND LET":PRI 
NTTAB(WI)"THE STUDENT KNOW HOW" 
:rem 212 
3165 PRINTTAB(WI)"HE DID. TYPE {RVS}Q 
{ОЕЕ} TO":PRINTTAB(WI)"END THE PROGR 


AM. {DOWN}" :rem 176 

3190 PRINTTAB(WI)"PRESS ANY KEY TO PLAY"; 
:rem 216 

3195 GETAS : IFAS=""THEN3195 :rem 199 
3196 PRINT" {CLR} {WHT}"CHRS$(142) :rem 37 
3200 RETURN :rem 165 


The Frantic 
Fisherman 


See special instructions in article on page 58. 


BEFORE TYPING... 
Before typing in programs, please refer to “How 
To Type COMPUTE's Gazette Programs,” “A 
Bepinner e Guide To Typing In Programs,” and 
“The Automatic Proofreader” that appear before 
the Program Listings. 


Program 1: 
The Frantic Fisherman—Redefined 
Characters, VIC Version 


1 PRINT"{CLR}{3 DOWN} {2 SPACES}FRANTIC 


{2 SPACES }FISHERMAN" :rem 108 

2 PRINT"{4 DOWN} LOADING CHARACTERS.." 
:rem 129 
10 FORT-7168TO7168-462*8-1:READA:POKET,A:N 
EXT :rem 181 
20 DATA14,62,254,62,14,2,6,6 :rem 131 


30 DATA14,14,14,22,22,22,54,54 :rem 222 
40 DATA118,118,246,254,246,246,246,246 


:rem 141 
50 DATAO,0,0,1,1,3,7,7 :rem 76 
60 DATA246,246,246,254,246,246,246,246 

:rem 147 
70 DATA15,31,63,127,255,255,255,255 

:rem 242 
80 DATA0,0,0,0,0,3,7,31 :rem 116 
90 DATA246,246,6,254,254,6,6,15 :rem 45 


100 DATA255,255,8,255,255,0,0,0 :rem 23 
110 DATA127,127,64,255,255,0,0,0  :rem 70 
120 DATA255,255,127,127,63,31,15,7 

zrem 183 
130 DATA170,255,85,0,255,85,0,170:rem 132 
140 DATA255,255,254,254,252,248,240,224 


:rem 182 
150 DATA6,12,24,240,192,0,0,0 :rem 165 
160 DATAO,0,0,192,240,24,12,6 :rem 166 
170 DATA96,48,24,15,3,0,0,0 :rem 80 
180 РАТАЙ,0,0,3,15,24,48,96 :rem 81 


190 DATA40,40,170,60,28,252,12,60:rem 122 
200 DATA12,40,40,248,248,40,20,40:rem 113 
210 DATA40,40,170,60,52,63,48,60 :геп 73 


220 
230 


240 
250 
260 
270 
280 
290 
300 


310 
320 


330 
340 
350 


360 


370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
475 


480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 


620 
630 


DATA48,40,40,47,47,40,20,40 :rem 22 
DATA32,48,190,187,252,255,190,128 


:rem 88 
DATA4,12,125,221,63,255,125,1:rem 118 
DATA0,0,0,0,0,0,7,195 геш 219 
DATA9,0,0,0,1,13,109,255 :rem 113 
DATA0,0,0,0,128,224,248,248 :rem 22 
БАТА0,0,0,0,1,15,15,15 :rem 11 


DATA7,3,15,63,255,255,255,255:rem 146 
DATA199,255,255,255,255,255,255,255 


:rem 200 
DATA255,255,255/,255,255,255/,255,255 

:rem 194 
DATAO,192,240,240,224,248,252,248 

:rem 72 
DATA255,7,31,127,3,24,31,31 :rem 22 
DATA0,0,0,0,0,0,0,0 :rem 101 


РАТА255,255,255,255,255,127,255,255,0 
,0,0,0,0,0,0,0 :rem 164 
DATA255,255,255,255,252,255,255,224 
:rem 192 
DATA255,192,240,252,0,0,128,0:rem 122 


рАТАй,0,63,0,0,0,0,0 :rem 162 
DATA3,3,193,1,1,1,0,0 :rem 224 
DATA0,0,0,0,0,3,12,0 :rem 152 
DATA9,0,0,48,192,0,90,0 :rem 11 
DATA127,127,63,63,31,15,7,3 :rem 30 
DATA1,2,4,8,16,32,64,128 :rem 133 
DATA0,0,0,0,4,4,8,8 :rem 126 
DATA255,127,31,7,0,0,0,4 :rem 124 
DATA16,16,32,32,0,0,0,0 :rem 64 
DATA4,4,4,4,4,4,4,0 :rem 133 
DATA255,199,189,207,245,143,255,255 
:rem 211 
DATA255,129,145,169,169,169,145,255 
:rem 210 
DATA255,129,145,177,145,145,185,255 
:rem 202 
DATA255,129,153,165,137,145,189,255 
:rem 195 
DATA255,129,185,137,153,137,185,255 
:rem 195 
DATA255,129,153,169,189,137,137,255 
:rem 202 
DATA255,129,189,161,185,133,185,255 
:rem 199 
DATA255,129,157,161,185,165,153,255 
:rem 195 
DATA255,129,189,133,137,145,145,255 
:rem 196 
DATA255,129,153,165,153,165,153,255 
:rem 192 
DATA255,129,153,165,157,133,185,255 
:rem 197 
DATA20,58,28,119,8,54,8,54 :rem 1 
DATA8,8,28,20,58,62,62,28 :rem 207 
рАТА28,62,127,73,8,8,40,16 :rem 245 
рАТА16,2,32,136,80,42,116,56 :геп 78 
REM LOWER MEMORY 512 BYTES :rem 253 


POKE52,PEEK(52)-2:POKE56,PEEK(56)-2 
:rem 215 


Program 2: 
The Frantic Fisherman—Main Program, 
VIC Version 


18 


20 
30 


CL$=" {WHT }WXY{5 LEFT)ÍDOWN]z[££]f 
{5 LEFT) {DOWN}<1#$" 

DEF FNRN(X)=INT(RND(1)*X) 
V=36878:NO=V-1 :S=V-2:S2=V-3:S3=V-4:C0= 


:rem 213 
:rem 111 


30720:Ес-2000:ТТ-22:Т6-256:7-32:рЕ-29 


:rem 63 


40 Сс0Т07000 :rem 100 
100 GL-3:SC-. :rem 207 
105 ЕС-2000 :rem 33 
110 POKE36869,255 :rem 153 
120 PRINT"(CLR])Í11 RIGHT}{18 DOWN)(GRN)G 


130 


146 
150 


160 


170 


180 


198 


200 
216 
226 


230 
240 


250 


260 
300 


310 
320 
330 


{LEFT} {DOWN} {WHT}A{2 LEFT} {DOWN}cB 
{3 LEFT} {DOWN}FED{3 LEFT}{DOWN} IHG 
(4 LEFT} {DOWN} {RED} JKKKL" ; :rem 84 
POKE646,19:PRINT"{4 LEFT}KKK":PRINT" 
{СҮМ}111111111111111111111{1ЕЕТ} 
{INST} ] {HOME} {3 DOWN}":POKEV,15+16*9 
:rem 181 
POKE36879,238 :rem 158 
РКІМТ"{НОМЕ } {6 DOWN}{2 RIGHT}"CLS" 
(7 UP} {4 RIGHT}"CL$"{3 DOWN}{3 RIGHT} 
" RS :rem 235 
PRINT" {YEL}{8 UP}%&]1{4 LEFT} {Down} '( 
)1{3 LEFT} {DowN}*+,{2 LEFT} {DowN}-." 
:rem 252 
PRINT" {HOME} (BLK] /"SC; : POKE646,8:PRIN 
T"(HOME)(DOWN]";:IF GL»1THENFORT-1TOG 
L-1:PRINT"S";:NEXT :rem 44 
LO=8128 : POKELO+CO, 18: POKELO, 18: POKELO 
-TT,17:POKELO-TT«CO,10:POKELO-1,15 
:rem 175 
POKELO-1-4CO,.:CL-LO-1:POKE81324CO,10: 
РОКЕ8110-С0,10:РОКЕ8133-СО,. :rem 37 
TY-FNRN(2)4*1:0NTYGOTO219,300 :rem 158 
X=FNRN(2)+1:ONXGOTO220, 230 :rem 248 
BC=8142:EC=8149:SP=1:DD=21:GOTO249 
:rem 176 
BC=8163:EC=8155:SP=-1:DD=22 :rem 214 
FORDL-BCTOECSTEPSP : POKEDL, DD: POKEDL+C 


Ons :rem 150 
GOSUB199@:POKEDL, Z:NEXT: IFSD<>196THEN 
3000 :rem 60 


SD-.:GOTO200 :rem 159 
NU-.:Y-59:C-6:X-FNRN(2)-*1:0NXGOTO310, 


320 :rem 110 
В-7776:Е-8084:60Т0330 :nrem 135 
В-7758:Е-8088 :rem 131 


FORDL=BTOESTEPTT : POKEDL+CO,C: POKEDL, Y 


:GOSUB1000 :rem 118 
340 POKEDL,Z:NEXT:IFSP«»T6THEN3000 
:rem 183 
350 SP-.:GOTO2900 :rem 171 
1000 CK=PEEK (197) :IFCK=64THENFORR=9TODE:N 
EXT: RETURN :rem 53 
1010 IFCK=29ANDLO=8132THEN1 500 :rem 245 
1020 IFCK=37ANDLO=8128THEN175@ :rem 1 
1030 IFCK-ZTHENONTYGOTO20090,3500 :rem 224 
1040 RETURN :rem 165 
1500 POKELO,Z:POKELO-TT,Z:POKECL,Z:LO-812 
8:CL=LO-1 теш "215 
1510 POKELO,18:POKELO-TT,17:POKECL,15:FOR 
5р-130Т01505ТЕР2:РОКЕ52,5р:МЕХТ:РОКЕ 
52,. :rem 191 
1520 RETURN :rem 168 
1750 POKELO, Z: POKELO-TT, Z:POKECL, Z:LO=813 
2:CL=LO+1 :rem 215 
1760 POKELO,29:POKELO-TT,19:POKECL,13 
:rem 29 
1770 FORSD-150TO13Q0STEP-2:POKES2,SD:NEXT: 
POKES2,.:RETURN :rem 126 
2000 POKECL, PEEK(CL)+1:FORSD=259TO2Q9STEP 
-1@:POKENO, SD:NEXT: IFPEEK(GCL+TT) =DDT 
НЕМ2100 :rem 56 
2010 POKECL,PEEK(CL)-1:POKENO,.:RETURN 
:rem 138 
2100 SC=SC+75:PRINT" {HOME } {BLK}/"SC:GOSUB 
4000 :rem 180 
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2110 POKEDL,58:FORSD-254TO198STEP-2:POKED 

L-CO,FNRN(8):POKENO,SD:NEXT :rem 109 

2120 POKENO,.:GOTO2010 :rem 33 

3000 GL-GL-1:FORT-130TO254STEP2:POKES,T:P 
OKENO, T: POKEV, 15+FNRN(16)*16:NEXT 

:rem 170 

3010 POKELO-TT,218:FORT-15TOÉDSTEP-.2:POKE 

5,.:РОКЕМО,160:РОКЕУ,Т-ЕМЕМ(16)%16:8 


ЕХТ :rem 29 
3020 IFGL-.THEN7000 :rem 72 
3030 POKENO, .:GOTO129 :rem 242 
3500 IFNU>2THENRETURN :rem 121 


3510 NU=NU+1:POKELO-44,6@:POKELO-44+CO,4: 
FORSD=15@TO189STEP19 : POKES2, SD:NEXT: 


POKES2,. :rem 95 
3520 IFPEEK(LO-66)-59THEN36060 :rem 166 
3530 POKE(LO-44),Z:RETURN :rem 27 
3600 SC=SC+5@:PRINT" {HOME } {ВІК} /"SC:GOSUB 
4000:РОКЕҺО-66,61 :rem 227 
3610 FORSP-200TO254STEP2:POKES,SP:NEXT:PO 
RESSE :rem 233 
3620 POKELO-66,Z:RETURN :rem 206 


4000 IFSC>=EGTHENGL=GL+1 : DE=DE-4: EG=EG+29 
ØØ : POKE77990+GL,19:POKE7790+CO+GL,8:G 
0704020 :rem 30 

4010 RETURN :rem 165 

4020 FORT=139TO239STEP19:FORR=T+19TOTSTEP 
-l1:POKES,T:NEXTR,T:POKES,.:RETURN 


:rem 127 
7000 POKE36869,240:PRINTCHR$(8):IFSC»HSTH 
ENHS-SC :rem 238 


7010 POKE36879,8:POKE646,10:PRINT"(CLR) 
(3 SPACES}£AJ**kSJ":PRINT"{3 SPACES} 
-KA3*EX3" :rem 147 

7020 PRINT"(3 SPACES]-EZJERJ*ERJ*ERJ**ER3 
**E2 RJ*KSI{6 SPACES)-EA3EWJEAJEWJ 
EFD3-FA3ES3EO3ES3EA3EWY-EKA3EX3 
{6 SPACES]----- (SHIFT-SPACE]-------- 
kz3ks3" :rem 2 

7030 PRINT"KA3**-EXJEQJEWJEZ3E2 E3EX3EZ3 
EXJEZAJEXJEZTRE3*EX3" :PRINT"-EKA3*EX3 
(SPACE) --" :rem 11 

7040 PRINT"-KZJk2 R3*KW3EZ3J*KRAJ*ERJ*ERJ** 
ERJ*ERJ**FKS3 -FKA3EW3-*EW3EA3ESJ-EV3- 
EA3EW3(2 SPACES]-ED3-EA3ES3-":rem 60 


7050 PRINT"---KQJ*----*KWd----- ---- Е 3 
EXJEZJEEJ* EEJEXTEZ3EETFEEXEXTEZ 3 
E5 E3EX3EZ3EX3" :rem 22 


7060 PRINT"(DOWN)ÍRED)(Í2 SPACES}LAST SCOR 
E:"SC:PRINT" {DOWN}{GRN}{2 SPACES }HIG 


H SCORE:"HS :rem 246 
7070 PRINT"{PUR}{DOWN}{2 SPACES}HIT A KEY 
TO PLAY" :rem 52 


7080 PRINT"(RVS)(WHT](7 SPACES}CONTROLS 
(7 SPACES}{OFF}{PUR}{4 SPACES}<-LEFT 
":PRINT"{GRN}{4 SPACES]»-RIGHT" 


:rem 255 

7090 PRINT" {RVS}{BLU}SPACE{OFF}-CLUB OR U 
MBRELLA" : POKENO, . :rem 120 

7100 POKE36878, (FNRN(14)+2)*16:IFPEEK(197 
)=64THEN7 199 :rem 218 

7110 С0Т0100 :rem 147 


Program 3: 
The Frantic Fisherman—64 Version 


4 POKE56,69:CLR :rem 123 
5 GOSUB 8000 :rem 125 
10 РОКЕ 53280,0:РОКЕ 53281,0 :rem 182 


20 PRINT "ÍCLR)ÍN]E53(DOWN] KA3**xxxx*** 
ES3(3 SPACES}PRESS ANY KEY TO BEGIN" 
:rem 129 
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30 
40 


50 


60 


70 


80 


90 


PRINT " -{9 SPACES]-" :rem 238 
PRINT "{SHIFT-SPACE}-{2 5РАСЕ5)ЕАЯ%%%% 
ж%ЕХЯ(5 SPACES}HIGH SCORE:";HS :rem 75 


PRINT "{SHIFT-SPACE}-{2 SPACES)RKZ3**** 


**KS3(5 SPACES}YOUR SCORE:";SC:rem 100 
PRINT "(SHIFT-SPACE]-(9 SPACES]-" 

:rem 145 
PRINT "{SHIFT-SPACE}-{2 SPACES)KA3**** 
dope 3: БЫЛ ружжа ERJK*ERJ**ESJ 
р Te :rem 54 
PRINT "{SHIFT-SPACE}-{2 SPACES]- 
{6 SPACES}-{5 SPACES}-{5 SPACES}- 
{5 SPACES}= -(4 SPACES]-" :rem 193 
PRINT "{SHIFT-SPACE}-{2 SPACES]- ЁАЯ** 
**EW3(2 SPACES)KU3(2 5РАСЕ5)- KA3*KS3 | 


ТБРАСЕ)ЕО3%Е53 KAJ*EW3 - БАЯ хя" 


100 


110 


120 


130 


140 


150 


160 


170 


180 


190 


200 


210 


220 


230 
240 
245 


256 


260 


270 


280 


296 


:rem 176 
PRINT "ÍSHIFT-SPACE]-(2 SPACES]- - 
(4 sPACES]- ЁАЯ* 593 -------- 


Ка ** 53" zrem 87 
PRINT " -{2 SPACES]- -(4 SPACES]- - - 
-------- (4 SPACES]-" :геп 86 


PRINT "FANEEJ**ERJ*EEJ***ESAEZJ*EXI 
EZ3*KE3*EX3 KZJ*RXJ KZI*EXI KZI*KEI** 
**kx3" :rem 73 
PRINT "-(9 SPACES]- USE SPACE TO RAIS 
E UMBRELLA" :rem 227 
PRINT "-{2 SPACES)KAJ******Exj3 

(6 SPACES}OR FEND OFF SHARK"  :rem 66 


PRINT "-[2 5РАСЕ5)Е73%%%х%%% 653 
{3 SPACES}USE « AND > TO MOVE FROM" 


:rem 231 
PRINT "-{9 SPACES}-{9 SPACES}LEFT TO 
{SPACE}RIGHT" :rem 116 


PRINT "-{2 SPACES]EAJ*ER3****«*ES3 
EAJ*ERJ****ERJ****ERJ****ERJT***ERJ*** 


ES3"; :rem 4 
PRINT "-{2 SPACES]- - KA3**EW3 - - - 
{SPACE}KAI**kwI{4 SPACES)-[4 SPACES]- 
koJ -(3 5РАСЕ5)-"; :rem 198 
PRINT "-(2 SPACES]- - Ez3**KW3 623% 
EX} - EZJ*ESJ- EA3**Fw3 -= EX HM 
KA3*Fs3-"; 


PRINT "-(2 SPACES}- KQ3**Es3 
ks} - KA3*EX3- -(2 SPACES}- 
PED "-(2 SPACES]- KQ3**EX 
[SPACE]EZ3**kW3 -(2 SPACES} 


[Л 


PRINT "KZJ**KEJ*KE3****FE3*EX3 KEZ3* 
EEJ****EEJ*EX3(2 SPACES } KZ3*E2 EJ* KEJ 
EX Ё2ЯКЕЯЕХЯ EZ3EX3"; :rem 235 
СЕТА5:ІҒА5-""ТНЕМ230 :rem 77 
РОКЕ53281,14:РОКЕ53280,6 :rem 38 
PRINT"ÍCLR]"CHR$(142)"(BLK)SCORE: 

{19 SPACES]FISHERMEN:" :rem 77 
PRINT"Í2 DOWN)(WHT])Í13 SPACES)ED3 
{RVS} {4 SPACES} (oFF)EF3" :rem 154 


PRINT"{12 SPACES)KC3(RVS)Í9 SPACES} 
(ОҒЕ)ЕЗ IIJKFI{5 SPACES}EDI{RVS} 

{2 SPACES} {OFF} ЕЗ" :rem 117 
PRINT" {4 SPACES}KDJ{RVS}{4 SPACES} 
{OFF}KFJ{3 SPACES}KCI{RVS}{13 SPACES} 
{OFF}EVJ{2 SPACES}KDJ{RVS}{7 SPACES} 
{ОЕЕ} ЕЗ" :гет 158 
PRINT"(2 SPACES}KDJ{RVS}{7 SPACES} 
{OFF}KFI{5 SPACES}KCI{RVS}{8 SPACES} 
{OFF}EVJ{3 SPACES}ECI{RVS}{7 SPACES} 
{OFF} £V3" :rem 178 
PRINT" KC3íRVS)(12 SPACES} {ОРЕ }ЕҮЯ 

(4 SPACES}kCJ{RVS}{4 SPACES) (OFF) Ev3 


300 
310 
311 
Sm 
313 
314 
ӘДЕБ 
316 
317 


318 
ЭШ) 


320 
330 
340 
356 


360 
3702 


380 

390 

400 

410 

1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 


1016 


(7 SPACES)EC3(RVS)Í3 sPACES) (oFF) Ev3" 
:rem 198 
PRINT"{5 SPACES])EC3[RVS])(7 SPACES} 
torFF)Ev3" :rem 130 
PRINT"{7 5РАСЕ5)ЕСЯ(ву5)ЕЗ 1Я{ОЕЕ}" 


:rem 171 

PRINT"{5 DOWN}{22 SPACES}{RVS}£{OFF} 
Ew3" :rem 187 
PRINT"(21 SPACES}{RVS}£ (orFF)EW3" 

E :rem 193 
PRINT"{2@ SPACES}{RVS}£{2 SPACES} 
{OFF} Ew3" c :rem 104 
PRINT"{19 SPACES}{RVS}£{3 SPACES} 
{OFF} Ew3" :rem 105 
PRINT"(18 SPACES}{RVS}£{4 SPACES} 
{OFF} w3" "m :rem 106 
PRINT"{17 SPACES}{RVS}£{5 SPACES} 
{OFF} ew3" Ў :rem 107 
РКІМТ"{16 SPACES}{RVS}£{6 SPACES} 
{OFF} ия" 52: :rem 108 
PRINT"{16 SPACES]KZ3EK6 ЕЗЕМЯ":геп 243 
PRINT"(14 5РАСЕ5)Е23Е%3(ву5) 
(10 SPACES} {OFF}£" :rem 47 


PRINT" {RVS}{BLU}[39 SPACES} (OFF) {BLK} 


"2 :rem 244 
РОКЕ2023,160:РОКЕ2023+54272,6 :геп 16 
5Ү549152 :rem 155 


РВІМТ" {НОМЕ } {ВІК} {12 DOWN}{12 RIGHT}P 
RESS RETURN KEY" :rem 138 
GETAS : [FAS< >CHRS$ (13) THEN369 :rem 4 
S1=PEEK(829) :S2=PEEK(83@) :S3=PEEK(831 
) :rem 144 
SC=INT(S1/16)*10+(S1AND15)+INT(S2/16) 
%1000-(52АМ015)%100 :геп 234 
5С-5С-ІМТ(53/16)%100000-%(53АМр15)%100 
00 :rem 41 
IF 5С>Н5 THEN Н5-5С :rem 47 
GOTO19 :rem 47 
DATA192,000,000,224,000,000,112,000 
: :rem 167 
DATA000,056,000,000,028,000,000,014 
:rem 170 
DATAO00,000,007,000,000,003,128,000 
:rem 166 
DATA0901,128,000,000,000,000,000,000 
:rem 158 
DATA000,000,000,000,000,000,000,000 
:rem 147 
DATA000,000,000,000,000,000,000,000 
:rem 148 
DATA000,000,000,000,000,000,000,000 
:rem 149 
рАТА000,000,000,000,000,000,000,000 
:rem 150 
рАТА001,128,000,003,128,000,007,000 
:rem 184 
DATA000,014,000,000,028,000,000,056 
:rem 178 
DATA000,000,112,000,000,224,000,000 
:rem 156 
DATA192,000,000,000,000,000,000,000 
:rem 157 
DATAO00,000,000,000,000,000,000,000 
:rem 146 
рАТА000,000,000,000,000,000,000,000 
:rem 147 
DATAO000,000,000,000,000,000,000,000 
:rem 148 
DATAO000,000,000,000,000,000,000,053 
:rem 157 
рАТА007,000,000,063,224,000,255,248 
:rem 200 


1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
190385 
1936 
1937 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 


1052 


БАТА000,002,000,000,002,000,000,002 
ігеп 157 
БАТА000,000,002,000,000,002,000,000 
:rem 156 
рАТА002,000,000,018,000,000,012,000 
:геп 167 
DATAO000,000,000,000,000,000,000,000 
:rem 145 
DATAO000,000,000,000,000,000,000,000 
:rem 146 
рАТА000,000,000,000,000,000,000,000 
:rem 147 
DATA000,000,000,000,000,000,000,000 
:rem 148 
DATA016,000,000,056,000,000,124,000 
:rem 174 
DATA0900,254,000,000,158,000,000,206 
:rem 183 
рАТА000,000,124,000,000,000,000,000 
:rem 158 
БАТА000,000,000,000,000,000,000,000 
:rem 152 
рАТА000,000,000,000,000,000,000,000 
:rem 153 
рАТА000,000,000,000,000,000,000,000 
:rem 154 
DATA000,000,000,000,000,000,000,000 
:rem 146 
рАТА000,000,000,000,000,000,000,000 
:rem 147 
рАТА000,000,000,000,000,000,000,000 
:rem 148 
рАТА000,000,000,000,000,000,000,000 
:rem 149 
DATA004,000,000,012,000,000,028,000 
:rem 167 
рАТА0й00,060,001,007,255,195,014,127 
:rem 207 
DATA255,031,255,255,127,255,255,056 
:rem 237 
рАТА127,255,003,255,195,000,000,001 
:rem 206 
рАТА000,000,000,000,000,000,000,000 
:rem 154 
рАТА000,000,000,000,000,000,000,183 
:rem 167 
рАТА000,000,000,000,000,000,000,000 
:rem 147 
DATA000,000,000,000,000,000,000,000 
:rem 148 
рАТА032,000,000,048,000,000,056,000 
гет ІТ! 
DATA128,060,000,195,255,224,255,254 
:rem 225 
DATA112,255,255,248,255,255,254,255 
:rem 240 
DATA254,028,195,255,192,128,0900,000 
¿rem 223 
DATAO00,000,000,000,000,000,000,000 
:rem 153 
DATA000,000,000,000,000,000,000,183 
zrem 166 
DATAO90,000,000,000,000,000,000,000 
:rem 155 
DATAO000,000,255,000,000,255,0900,003 
:rem 183 
рАТА255,192,000,085,000,000,089,000 
:rem 202 
рАТАй00,085,064,000,090,000,000,085 
:rem 194 
рАТА0й00,000,255,000,003,255,192,003 


:rem 192 
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1053 DATA245,080,003,255,192,003,255,192 
:rem 224 
1054 DATA003,255,192,000,000,000,000,000 
:rem 179 
1055 DATA0900,000,000,000,000,000,000,000 
:rem 153 
1056 рАТА000,000,000,000,000,000,000,000 
:rem 154 
1057 рАТАй00,000,255,000,000,255,000,003 
:rem 182 
1058 DATA255,192,000,085,000,000,101,000 
:rem 195 
1059 рАТАй01,085,000,000,165,000,000,085 
:rem 196 
1060 DATA000,000,255,000,093,255,192,005 
“теп 193 
1961 DATA095,192,9903,255,192,003,255,192 
:rem 230 
1062 рАТАй03,255,192,000,000,000,000,000 
:rem 178 
1063 DATA0090,000,000,000,000,000,000,000 
:rem 152 
1064 DATA 256 :rem 136 
8000 PRINT"(N)(CLR)(Í12 DOWN} {RIGHT}LOADIN 
G SPRITES AND MACHINE LANGUAGE" 
E :rem 87 
8010 PRINT"Í10 RIGHT}{4 DOWN}PLEASE BE РА 
ISEENIT ЗШ y :rem 96 
9000 І-248%64 :rem 129 
9010 READ A:IF A-256 THEN 9100 :rem 4 
9020 POKE I,A:I=I1+1:CK=CK+A:GOTO 9010 
:rem 81 
9108 IF СК<>19128 THEN PRINT"ERROR ІМ DAT 
A (LINES 190990-1064)":STOP :rem 38 
10000 I-49152:CK-9 :rem 177 
10010 READ A:IF A-256 THEN 10100  :rem 84 
10020 POKE I,A:I=I+1:CK=CK+A:GOTO 10010 
:rem 161 
10100 IF СК<>139243 THEN PRINT"ERROR IN D 
ATA (LINES 49152-50346)":STOP 
:rem 250 
10200 RETURN :rem 211 
49152 DATA 169,3,141,64,3,169 :rem 161 
49158 DATA 7,141,21,208,169,217 :rem 5 
49164 DATA 141,1,208,169,1,141 :rem 198 
49170 DATA 28,208,169,10,141,37 :rem 0 
49176 БАТА 208,169,7,141,38,208 :rem 13 
49182 DATA 169,0,141,39,208,32 :rem 207 
49188 DATA 60,193,169,25,141,60 :rem 16 
49194 DATA 3,169,250,141,250,7 :rem 207 
49200 DATA 169,209,141,5,208,169  :rem 53 
49206 DATA 2,141,41,208,169,44 :rem 202 
49212 DATA 32,238,193,32,156,195 :геп 55 
49218 DATA 169,0,141,61,3,141 :rem 148 
49224 DATA 62,3,141,63,3,32 :rem 45 
49230 DATA 174,195,32,141,196,169:rem 110 
49236 DATA 32,141,71,3,169,0 :rem 100 
49242 DATA 141,72,3,173,60,3 :rem 97 
49248 DATA 141,67,3,32,4,196 :rem 112 
49254 DATA 32,238,193,206,67,3 :rem 213 
49260 DATA 208,245,141,4,212,32 :геп 244 
49266 DATA 150,192,173,64,3,201 :геп 254 
49272 DATA 0,208,226,169,0,133 :rem 201 
49278 DATA 198,169,0,141,21,208 :rem 9 
49284 DATA 169,0,141,4,212,169 :rem 208 
49290 DATA 0,162,0,157,0,208 :rem 94 
49296 DATA 232,224,17,208,248,96 :гет 66 
49302 DATA 173,30,208,141,69,3 :rem 200 
49308 DATA 173,65,3,201,1,240 :rem 145 
49314 DATA 87,173,66,3,201,0 :rem 103 
49320 DATA 240,46,173,69,3,41 :rem 154 
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49326 
49332 
49338 
49344 
49350 
49356 
49362 
49368 
49374 
49380 
49386 
49392 
49398 
49404 
49419 
49416 
49422 
49428 
49434 
49449 
49446 
49452 
49458 


49464 
49470 
49476 
49482 
49488 
49494 
49500 
49506 
49512 
49518 
49524 
49530 
49536 
49542 
49548 
49554 
49560 
49566 
49572 
49578 
49584 
49590 
49596 
49602 
49608 
49614 
49620 
49626 
49632 
49638 
49644 
49650 
49656 
49662 
49668 
49674 
49680 
49686 
49692 
49698 
49704 
49719 
49716 
49722 
49728 
49734 
49740 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


6,201,6,208,11,169 :rem 153 
17/2, 32,31,195,32, 1709 :rem 2 
194,76,46,193,173,2 :rem 224 
208,201,225,208,3,76 :геп 254 
37,193,206,2,208,173 :rem 1 
2,208,201,255,208,5 :rem 203 
169,0,141,16,208,96 :rem 212 
173,2,208,201,115,144 :геп 46 
3,76,37,193,173,69 :rem 178 
3,41,6,201,6,208 :rem 47 
11,169,117,32/31,195 :rem 7 
32,179,194,76,46,193 :rem 25 
238,2,208,96,173,3 :rem 173 
208,201,227,144,3,76  :rem 252 
3/7/51:937157:3/469/79/24:* :rem 161 
6,201,6,208,11,169 :геп 153 
80,32,31,195,32,202 :rem 196 
194,76,46,193,173,69 :rem 29 
3,41,3,201,3,240 :rem 37 
4,238,3,208,96,32 :rem 109 
151,194,206,64,3,32 :rem 208 
156,195,162,30,32,106 :геп 49 


195,202,208,250,165,162 


srcem 157 
201,192,144,38,169,0 :rem 4 
141,2,208,169,229,141 :rem 51 
3,208,169,253,141,249 :rem 64 
7,169,0,141,40,208 :rem 156 
141,16,208,141,65,3 :rem 210 
141,66,3,169,0,141 :rem 159 
27,208,173,30,208,96 :rem 2 
201,128,144,44,169,80  :rem 53 
141,2,208,169,229,141 :геп 48 
3,208,169,252,141,249 :rem 60 
7,169,0,141,40,208 :rem 153 
169,2,141,16,208,169 :rem 4 
0,141,65,3,169,1 :rem 54 
141,66,3,169,0,141 :rem 153 
27,208,173,30,208,96 :геп 14 
201,64,144,44,169,139 :геп 60 
141,2,208,169,100,141 :rem 39 
3,208,169,251,141,249  :rem 62 
7,169,6,141,40,208 :rem 162 
169,0,141,16,208,169 :rem 14 
1,141,65,3,169,0 :rem 57 
141,66,3,169,2,141 :rem 158 
27,208,173,30,208,96 :rem 17 
169,218,141,2,208,169  :rem 56 
100,141,3,208,169,251 :геп 45 
141,249,7,169,6,141 :rem 214 
40,208,169,0,141,16 :rem 198 
208,169,1,141,65,3 :rem 160 
169,1,141,66,3,169 :rem 164 
2,141,27,208,173,30 :rem 205 
208,96,201,44,208,17 :rem 7 


169,132,141,0,208,169  :rem 52 
255,141,248,7,32,227 :rem 11 
194,32,112,195,96,201  :rem 57 
46,208,17,169,212,141 :геп 62 
0,208,169,254,141,248 :геп 61 
7,32,227,194,32,112 rem 207 
195,96,201,32,208,113 rem 60 
173,68,3,201,0,208 :rem 157 
115,173,70,3,201,0 zrem 153 
208,108,173,65,3,201  :rem 253 
0,240,38,169,2,141 :rem 148 
41,208,169,209,141,5 :rem 6 
208,169,250,141,250,7 :геп 51 


173,0,208,201,132,208 :геп 44 
8,169,138,141,4,208 :rem 217 
76,132,194,169,218,141:rem 112 


49746 DATA 4,208,76,132,194,169 :rem 19 50172 DATA 15,24,105,48,32,210 :rem 187 


49752 DATA 0,141,41,208,173,0 :rem 145 50178 DATA 255,96,32,16,196,72 :rem 219 
49758 DATA 208,201,132,208,18,169:геп 1049 50184 DATA 32,71,196,32,125,196 :rem 2 
49764 DATA 127,141,4,208,169,230  :rem 55 50190 DATA 104,96,32,228,255,201 :геп 41 
49770 DATA 141,5,208,169,249,141 :геп 59 50196 DATA 0,208,3,76,70,196 :rem 108 


49776 DATA 250,7,76,132,194,169 :rem 22 50202 DATA 201,133,208,7,169,25 :геп 241 
49782 DATA 232,141,4,208,169,230 :геп 52 50208 БАТА 141,60,3,169,133,201 :геп 238 
49788 БАТА 141,5,208,169,248,141 :геп 67 50214 DATA 134,208,7,169,18,141 :rem 250 


49794 DATA 250,7,32,1,195,169 trem 170 50220 DATA 60,3,169,134,201,135  :rem 236 
49800 DATA 200,141,68,3,96,201 :rem 198 50226 DATA 208,7,169,13,141,60 :rem 198 
49806 DATA 95,208,5,169,0,141 :rem 164 50232 DATA 3,169,135,201,136,208 :геп 37 
49812 DATA 64,3,96,32,141,196 :rem 165 50238 DATA 7,169,9,141,60,3 :rem 55 
49818 DATA 169,33,141,4,212,162 :rem 2 50244 DATA 169,136,96,173,68,3 :rem 218 
49824 DATA 255,142,1,212,142,37 :rem 251 50250 DATA 240,5,206,68,3,240 :rem 140 
49830 DATA 208,32,106,195,202,208 :rem 97 50256 DATA 21,173,70,3,201,0 :rem 83 
49836 DATA 244,169,10,141,37,208 :геп 57 50262 DATA 240,3,206,70,3,162 :rem 137 
49842 DATA 96,32,141,196,169,129 :геп 71 50268 DATA 90,202,208,253,169,0  :rem 252 
49848 DATA 141,4,212,162,255,142 :геп 50 50274 DATA 141,4,212,96,173,4 :rem 149 
49854 DATA 1,212,142,40,208,32 :rem 196 50280 DATA 208,201,0,240,5,169 :rem 189 
49860 DATA 106,195,202,208,244,96:геп 110 50286 DATA 0,141,4,208,32,112 :rem 136 
49866 DATA 32,141,196,169,129,141:геп 116 59292 DATA 195,169,255,141,70,3 :rem 3 
49872 DATA 4,212,162,0,142,1 :rem 94 50298 DATA 76,81,196,173,141,2 :rem 215 
49878 DATA 212,142,40,208,32,106 :геп 48 50304 DATA 41,1,201,1,208,6 :rem 28 
49884 DATA 195,232,224,50,208,242:rem 108 50310 DATA 32,16,196,76,125,196 :rem @ 
49898 DATA 96,169,33,141,4,212 :rem 216 50316 DATA 96,162,0,169,0,157 :rem 154 
49896 DATA 162,15,142,1,212,32 :rem 203 50322 DATA 0,212,232,224,25,208  :rem 231 


49902 DATA 106,195,32,106,195,202 :rem 99 50328 DATA 248,169,15,141,24,212 :геп 45 
49908 DATA 224,5,208,242,169,0 :rem 211 50334 DATA 169,16,141,5,212,169 :геп 252 
49914 DATA 141,4,212,32,106,195  :rem 251 50340 DATA 240,141,6,212,169,100  :rem 26 


49920 DATA 96,169,33,141,4,212 :rem 210 50346 DATA 141,0,212,96,256 ігеп 51 

49926 DATA 162,5,142,1,212,32 :rem 148 

49932 DATA 106,195,32,106,195,232:геп 105 

49938 DATA 224,20,208,242,169,0 :rem 3 

49944 DATA 141,4,212,32,106,195 :rem 254 

49950 DATA 96,248,24,109,61,3 :rem 168 

49956 DATA 141,61,3,169,0,109 :геп 161 COMPUTE''s Gazette 

49962 DATA 62,3,141,62,3,169 :rem 112 2 H 

49968 DATA 0,109,63,3,141,63 :rem 111 Subscriber Services 

49974 DATA 3,216,32,174,195,56 :rem 222 Please help us serve you better. If you need to contact 

оа ЖАТА E At з үз :rem ios us for any of the reasons listed below, write to us at: 
69,3, 763, :rem v 

49992 DATA 237,72,3,13,69,3 zrem 69 POMPIE саке 

49998 DATA 144,25,169,32,248,24 :rem 22 А dale, NY 11737 

50004 DATA 109,71,3,141,71,3 :rem 85 CERRI ; 

50010 DATA 169,0,109,72,3,141 :rem 136 or call the Toll Free number listed below. 

50016 DATA 72,3,216,238,64,3 :rem 97 Change of Address. Please allow us 6-8 weeks to 

50022 DATA 32,156,195,96,160,0 :rem 197 effect the change; send your current mailing label 

50028 DATA 200,208,253,96,169,0  :rem 250 along with your new address. 

50034 DATA 141,41,208,173,0,208 :геп 236 Renewal. Should you wish to renew your Gazette 

50040 DATA 201,132,208,16,169,248 :rem 87 subscription before we remind you to, send your cur- 

50046 DATA 141,250,7,169,127,141 :геп 41 rent mailing label with payment or charge number or 

50052 DATA 4,208,169,222,141,5 :rem 193 call the Toll Free number listed below. 

50058 DATA 208,96,169,249,141,250:rem 109 New Subscription. A one-year (12-month) U.S. 

50064 DATA 7,169,232,141,4,208 ігеп 199 subscription to COMPUTE!'s Gazette is $20 (2 years, 

50070 DATA 169,222,141,5,208,96 :геп 252 $36; 3 years, $54. For subscription rates outside the 

50076 DATA 162,0,160,35,24,32 :rem 139 U.S., see staff page). Send us your name and address 

50082 DATA 240,255,173,64,3,24 :геш 197 or call the Toll Free number listed below. 

DRESS UE Lp aU Amd, 25596 irem E Delivery Problems. If you receive duplicate issues 

Sed DAWS 102 0010080820200 Brew) 190 of COMPUTE CEE ү OU ex, Bein late de- 

50100 DATA 255,173,63,3,41,240 :rem 186 li T ul Шел КЕ ея 

50106 DATA 74,74,74,74,24,105 :rem 154 SEU ieee AVe RIG RET CE ARD IO 

50112 DATA 48,32,210,255,173,63 :геп 243 please call the Toll Free number listed below. 

5@118 DATA 3,41,15,24,195,48 :rem 91 7 

50124 DATA 32,210,255,173,62,3 :rem 188 COMPUTE! 5 Gazette 

50130 DATA 41,240,74,74,74,74 :rem 150 800-334-0868 

50136 DATA 24,105,48,32,210,255  :rem 241 In NC 919-275-9809 

50142 DATA 173,62,3,41,15,24 :rem 89 

50148 DATA 105,48,32,210,255,173 ігеп 41 

50154 DATA 61,3,41,240,74,74 :rem 96 

50160 DATA 74,74,24,105,48,32 :rem 149 

50166 DATA 210,255,173,61,3,41 :rem 193 
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ЭНЕР а ЕН d following 2200 A.D. Readers who like to plan 200 


years in advance should make the following 


Bug т Swatter = change to line 1247: 


ZR ; ^ 1247 IF(Y-2200ANDMO»3)OR(Y»2200)THEND1-D1l 
Modifications And Corrections 


-1: IFD1=@THEND1=7 


ө The Commodore 64 version of “React” (Feb- 
ruary) runs as listed, but does not correctly read 
Д y the forward diagonals of the joystick. To fix it, 
€ Reader Clifford Tener has discovered a change line 640. JS(5) should be —41 and JS(9) 


minor error in “Poker” (March). The VIC and 64 should be —39. Thanks to Paul T. Dawson for dis- 
versions see an ace as a high card, which elimi- covering this error. 

nates the possibility of small straights (A-2-3-4-5). 
To correct this, make the following changes: € Reader Scott Campbell finds it more conve- 
nient to use the space bar rather than the M key 
to represent zero in "Numeric Keypad" (April). 
Pressing M with a thumb is rather awkward. To 
2115 IFYY-lTHENIF(PT(5)-PT(4)-1)OR(PT(1)e make the switch, change the 77 in line 520 to 32 

PT(5)-15-1)THENSS-1 (64 version). @ 


2110 ҮҮ-0:ІЕРТ(4)-РТ(3)-ІТНЕМІЕРТ(3)-РТ(2 
)=1ТНЕМІЕРТ(2)-РТ(1)=1ТНЕМҮҮ=1 


€ Program 4 of "How To Use Arrays" (Feb- 
ruary) contains misplaced characters in 5180 and 
5270. In each of these lines, replace the first double 
quote with a number sign (#): 


COMPUTE! Gazette 


Toll Free Subscription Order Line 


800-334-0868 
In NC 919-275-9809 


5180 INPUT#4,HW(N) 
5270 PRINT£1,"NAME","SCORE" 


€ Program 4 of "Making Calendars" (April) 
crashes when printing calendars for the years 


21] the first time — 
all the time? 


FLIGHT SIMULATOR GAMES 
Eum «Өл COCKPIT 64 


For the Commodore 64 
e 100% Machine Language 


188 


If youown a COMM 64 you can make the 
right decision on software programs the 
firsttime — and everytime. You can have 
Soft-Guide 64 each month. 

These software reviews can make your 
life a whole lot easier and alot more fun. 
They allow you to select the right 
educational or home/business software. 
No more wondering. No more wrong buys. 
No more frustrations. 

Sound good? 

It’s the perfect way to pre-select your 
software buys. And it’s inexpensive. You get 
afull year (12 issues) for $19.95. Soft-Guide 
64 can save you software dollars. 


If paying by check or money order mail to: 
Soft-Guide 
4974 N. Fresno Street, Suite 303 
Fresno, CA 93726 
(209) 432-0633 


orcircle reader card for more information 


р Аге you buying 
the right program 
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e Windshield View 

e 7 Airports $30. 
Runway 64 (Commodore 64) 595 
Runway 90 (VIC-90 $25 
Sky Pilot (VIC-20) $18 
ADD 9992 FOR DISK VERSION 

BAR GRAPH 64 
FOR THE COMMODORE 64 

% 100% Machine Language 

Ф Full Color Display 

@ Saves To Disk $30. 
Ф Supports All Parallel Printers 


COD ORDER PHONE 


WE SHIP WITHIN 48 HOURS 


(312) 394-5165 


3 SUSIE 709 Wilshire Dr. 
SOFTWARE mt. Prospect, IL 60056 


YOUR VOICE IN - Қ 

YOUR VOICE OUT || каннын 

Digital Recording on | 
C-64/VIC20 


What is a Cheatsheet, anyway? 


Leroy's Cheatsheet Keyboard overlays are durable plastic- 
coated templates. When simply laid on your VIC420 and 64 
keyboards, the Leroy's Cheatsheet” surrounds the keys with 
essential information, placing your most valuable program- 
ming tool at your fingertips. 


At Cheatsheet Products" we take the time to learn and use 
each program before designing a keyboard overlay. Not 
only are our overlays designed using easy to follow instruc- 
tions and illustrations, but all commands are available and 
many extras are added to make programming easy and fun. 


Our BASIC Leroy's Cheatsheet” not only has all commands 
and functions, but also has device numbers, program list 
printing commands, disk commands, and many illustrative. 


Up to 64 numbered words or phrases. Then store 
as a named file on disk or tape. Words or phrases 


Tel: (503) 342-1271, Telex 706017 
Check, money order, or VISA/MC 
(Add $4.00 Shipping and Handling) 


2-disc set for '83 and '82 movies, 
only $19.95 postpaid. 

Send check or money order to: 
CINEMAN SYNDICATE 
Suite 501, 7 Charles Court 
Middletown, ‘NY 10940 


NY Res. add appropriate taxes. Canadian and 
other foreign customers: U.S. funds only 


Commodore 64 is a registered trademark 
of Commodore Electronics Ltd. 


Send check or money order plus $1.00 (postage and handling) 
PA residents add 6% sales tax. C.O.D. — add $3.00. 


Name 


Address 


City 
(0 Products of Com 


CHEATSHEET PRODUCTS™ 
РО. Box 8299 Pittsburgh PA. 15218 


5 25 examles of the actual BASIC commands іп the cutout. 
TAKE YOUR out in any order from your own BASIC program : ^ 
е COMMODORE 64 ® NewIBASIG commands added The Voice Mas fe Leroy's Cheatsheet overlays make it all easy for only 53.95. 
TO THE MOVIES is not needed for response—only for recording. 
- е Talking games, clocks, calculators, file data. Dealer inquiries welcome 
- Б e- machine response, advisories—applications too 
The MOVIES Disc numerous to list. Wherever you want a talking рона ша 
ЫЙ Use your 64 as a movie guide. [iad кошрше veli yano (eiui eremelim Fa Gt ^ VIRI 
Display vital information on and your own custom vocabulary. Even sing and 
е many of the latest movies оп е play music. Many applications in education too. 2 
pay TV and for rent or sale on B Software for word recognition soon available. о Programmers Aid! o о Graphic printer (ssa essor)! 
= f " o  Vicmon' o  UMI Wordcraft 20 
videocassettes and video- $8995 o Super Expander’ o HES Vic Forth 
EE uci up capaute ЧЁ ONLY a VieTypewites” а o HES Wier 
Г) formation fast оп major stars, [J WE CAN DEMONSTRATE T а Mu 5 aay 
directors, Academy Awards, OVER THE TELEPHONE! о о Quick Brown Fox о о Basic 
е MPAA ratings, box office Г | COVOX INC о Hesmon 64 п Paper Clip 
bestsellers and more. Helps D о Pilot (commodore) о Script64 
Ll you decide before you buy, 675-D Conger St. Eugene, OR 97402 в Cale Result шее) п а PracliCalc 64/plus 
a rent or watch. - o Calc Result (easy) о Easy Calc! 
Г) [2 
єз um 
= - 
- ea 
е a 


(412) 456 - 7420 


HOME FINANCE 
PACKAGE 


A Powerful Collection For 
The Commodore 64 


AT LAST! 
EASY BAESIC™ pisk 


For Commodore 64" Users 


FEATURES 


A 6502 Machine Language Assembler for 
the SERIOUS Users of the VIC-20 and C-64 


Professional Features INCLUDES 


e Three Dimensional Graphics e Budget Planning * Mortgage Analysis * High Speed Operation | FREDITOR 
und & Music Commands e Checkbook Mgmt. e IRA Mgmt. Choice of I/O Devi A full screen, 

652 Н ай ] * Loan Analysis * Retirement Planning E SEC SR menu-driven 

e Sprite & Game Programming * Full Listing Control text editor with: 


e Investment Planning œ Savings Mgmt. 


ому $14.95 oiskette 


or $13.95 Cassette 
Send Check or Money Order To: 


SMS 
P.0. Box E 
Nampa, Idaho 83653 


e48 Additional Basic Commands 


ONLY $29*5 


ADD $2.50 SHIPPING & HANDLING 
UTAH — ADD SALES TAX 
* CHECK, MO, VISA or MC 
(SEND CREDIT CARD EXP. DATE) 


CLONEWARE 


CY OMENNUE 
P.O. Box 587 C.G. 
Pleasant Grove, UT 84062 


* Disassembly Utility * pu a 
* Error Messages 


* File Chaining = Block Operations 
* Produces Industry- “ Search/Replace 
Standard Object Code L_Tunctions 


(Requires 8K RAM) 


Specif 
Eo 3455 
Cassette 


DOCUMENTATION ONLY ... $10 
(Refundable with order) 
(California Residents — Add 6% Tax) 


P.O. BOX 11004 


OSURLS SANTA ROSA, СА 95406 


(707) 576-0808 


Dealer inquiries welcome 
Send self-addressed envelope for free brochure. 
[Commodore 64 is a trademark of Commodore Business Machine 


Sofluae Markeling Service 
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‘PUBLIC DOMAIN" 

— SOFIWARE — 
Supporting all COMMODORE computers 
Written by users, for users 
Ж GAMES Ж UTILITIES Ж EDUCATIONAL Ж 


vic 20" 
collection #1 — collection #2 — collection #3 
collection #4 — collection #5 — collection #6 
70+ programs per collection — Tape/Disk — $10.00 


COMMODORE 64" 
64 collection #1 - 64 collection #2 — 64 collection #3 
64 collection #4 — 64 collection #5 
25+ programs per collection — Tape/Disk — $10.00 


PET? / CBM® 
5 Utility — Tapes/Disks — $10.00 each 
11 Game — Tapes/Disks — $10.00 each 
6 Educational — Tapes/Disks - $10.00 each 


DINSET": Reset Switch 
Works on Vic 20 or Commodore 64 — $5.00 
All prices include shipping and handling. 
CHECK, MONEY ORDERS, 

VISA and MASTERCARD accepted. 
For A Free Catalog Write: 
Public Domain, Inc. 
5025 S. Rangeline Rd., W. Milton, OH 45383 
10:00 a.m. - 5:00 p.m. EST — Mon. thru Fri. 

3) 698-5638 or (513) 339-1725 


LN 


SPECTRUM SOFTHARE 


P.O. BOX 11471 
SAN FRANCISCO, CA 94101 


PUBLIC DOMAIN SOFTWARE 


TELECOMMUNI CATIONS 


cnn Asp яррнтсз 


BUSINESS/EDUCATION 


WE kis Res YES Eo o HORE 


OGRAMS TESTED Ai 
SAMPLE DISK FOR COMMODORE 64 $8.08 


SELECT: 
i UTILITIES TELECOMMUNICATIONS 
MISCELLANEOUS 


2 GAMES/MUSIC 4 


C64 BBS PROGRAM 


BULLETIN BOARD PROGRAM 


BASIC SYSTEM REQUIRES ONLY 
MMODORE 64 WITH ONE 1541 DRIVE 
AND 1650 AUTOMODEN 


ЫЫЫ 
H BAS ІС SYS 


PROFESSIONAL FOOTBALL 
A Strategy Game For 


Vic +16K & Commodore 64 


Challenge the Commodore to a game 
of real football! Over 130 play combi- 
nations, full feature scoreboard and 
total statistical summary. Computer sel- 
lects its plays based on time, score, 
down & distance, but watch out for 
surprises! Try to stop the explosive 2 
minute offense, or try winning a cliff- 
hanger with time running out. Block 
punts, fieldgoals, and force turnovers, 
or be victimized by the aggressive de- 
fense. No two games are ever alike! 


$16.95 for cassette and playbook. 
$19.95 for disk version. 
CMS SOFTWARE 


VISA Box 4876 
ыы. Topeka, KS 66604 ` 


(913) -267-5864. 


Visa, MC include Card # 
Exp. Date and Signature 


Successful Delivery! 
Chromazone’s New Arrival! 


BUS PYP 


Maneuver through the mazes to 
make a million . . . if you dare! 


Graphics for С-64, disk only, joystick required. 


Send $29.95 in check or money order to: 


Chromazone Software 
P.O. Box 7325 
San Jose, CA 95150-7325 


CA residents add $1.95 tax 


DISK DUPLICATOR 
FOR COMMODORE 


SINGLE DISK DRIVES 


DISK DUPLICATOR provides you a 
fast and easy way to make back-up 
copies of your precious, irreplaceable 
diskettes. Enjoy the convenience of a 
dual disk drive without the expense. 
DISK DUPLICATOR is 100% MACHINE 
LANGUAGE, 100% FAST, and most 
importantly, 100% AFFORDABLE! 

Don't let an accident or mistake 
catch you without back-up copies of 
all your diskettes. ORDER "DISK DU- 
PLICATOR" TODAY at the special in- 
troductory price of only $14.95 post- 
age paid (check or money order only 
please). 

J&H COMPUTERS DEPT. 123G 
5056 NORTH 41st STREET 
MILWAUKEE, WISCONSIN 53209 
PHONE (414) 461-9941 


АМО 
COMPUTERS 
COMMODORE-64™ 
PUBLIC DOMAIN SOFTWARE 
28 DISKS TO CHOOSE FROM 


* GAMES 
* AR-MUSIC 
* UTILITIES 


* PERSONAL FINANCE 

* HOME APPLICATIONS 

* EDUCATIONAL 
MUCH MORE 


ORDER DEMO DISK FOR 895 
AND RECEIVE "DISK-LOCATE" FREE 
DISK-LOCATE STORES AND RETRIEVES 
DIRECTORY INFO FROM OVER 150 DISKS 


DISCOUNTS ON ALL POPULAR SOFTWARE 
CATALOG SENT ON REQUEST 


D&L COMPUTERS 
7166 Gateshead, Canoga Pk., Ca. 91307 
(818) 710-9874 


SPECIAL 


15° Quizettoe 
Wai ee Hollywood Squares 


10” Tic Tac Toe Sho 


Tie Jac Toe with lights E sound 
S.A.S.E. for price list 
Joy of PROGRAMMING 


51 BORO . E. STBG., PA 18301 
Coding [n Uic-20 Basic 
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VIC-20 
COMMODORE 64 


THE RECIPE BOX 


Now you can easily store and recall your favorite 
recipes on your Commodore computer. THE RECIPE 
BOX is a complete menu-driven disk system that comes 
with these additional features: 

SEARCH BY INGREDIENT — Only have a pound of 
hamburger in the freezer? Let THE RECIPE BOX 
show you all the recipes that you have on file that use 
hamburger, or any other ingredient you choose. 
SEARCH BY CATEGORY — Code your recipes as to 
breakfast, lunch, dinner, snacks, etc. 

SEARCH BY CATEGORY/NGREDIENT — Any 
combination of the above. 

AUTOMATIC MEASUREMENT — THE RECIPE 
BOX will automatically scale up or down the amount 
of ingredients you need according to how many 
servings you want 

SCREEN OR PRINTED OUTPUT — Have printed 
copies to use in the kitchen or give to friends. 

THE RECIPE BOX requires one disk drive and will 
run on a 5K VIC-20, Commodore 64. Please specify. 
Send check or money order for $21.95 to: 


Aries Marketing Co. 
P.O. Box 4196 
4200 Shannon Drive 


Baltimore, Md. 21205 
Md. residents add 5% sales tax 


EPROM PROGRAMMER 


1 FOR E t Ы t 
PET - COMMODORE-64 - VIC-20 


DELUXE-INCLUDES: T 
*MACH.LANG.MONITOR — E 
*mini -ASSEM/EDITOR u 


"FILE MANAGER $99.50- 

for software development &EPROM coding. 
PROGRAMS OVER 40 popular device 
types including 25xx and 27xx series 
up to 32K BYTES (incl. some E? types). 
MENU DRIVEN software runs all 3 CPU's 
connects to USER PORT. L.I.F. socket incl. 


ECONOMY .-2716-64 
ДЪ ver. ША 
asic programmer-when 
editing & file storage d 
ARE NOT needed-LIF incl. $59.50 * 
t PET, COMMODORE 64,& VIC 20 are trademarks of CBM,INC. 


(215)256:6933 DAZco (215)256:6933 
=a 


Box 267 Lederach, Pa.19450) vsa 
++$2. ship. & Pa. res. add 696 + 


мс 20/COMMODORE 64 


bulding blocks ladders. fite p 
ining sound; high 
ise. Start play at 
ge Aso Screen 
nlimited screens. 
ge the most Skillful ph 
0 ur Price: $2 


Screen of your choice. joystick or keyboard. machine 
Creator to expand the game disk and 
& CRAZY CONVEYOR action to enteria 
Lust Price: $39 99 Cor 
DUNGEONS and DEMONS: 


ultimate goa 
Golden Спаке As your character increases in 
allowed the option of saving, to dist 
dungeon. 
Excelen 
Commodore 


60 MBAHTZ | on morous strategy 


nodore 64 (T) or (D) Our Price: $16.95 


adventure game, You are shipwrecked on a 


(0). VIC-+8K ( 


TORY MANAGER C64 (D). VIC + 16K (D) $2 
INVESTMENT PORTFOLIO MGR. C64 (Т) or (D) 519. 
DUNGEONS (adventure) VIC+16K — (T) or (D) $19. 
RIDGE RUNNER (space) 100% ML ViCunxp. — (T)or (D) $19. 
PAK ALIEN (maze) 100% ML МС unxp. + (Т) or (D) $19.95 


BYTES and BITS 
524 E. Canterbury Ln. 
Phoenix, AZ 85022 
- (602) 942-1475 


Specify tape ог disk. VIC or C-64 
Check. money order or C.0.D. 
Add $2.00 for postage & handiing 


2 А ONLY THE BRAVEST 

& DARE TO ENTER!! ARM 

^ YOUR CHARACTER 

3 WITH WEAPONS AND 
MAGIC. THEN FIND 
GOLD AND FIGHT 
OGRES AND GAIN NEW 
MAGICAL POWERS. 


* 3-D PERSPECTIVE 

\ * SUPERB GRAPHICS 
| * COMPLEX BATTLES 

A 3 * LOTS OF MAGIC 

А * THOUSANDS OF 

% CAVES 


COMMODORE 64 
TI 99/4А (EXTENDED BASIC) 
CASSETTE $19.95 DISK $21.95 
DEALER INQUIRIES WELCOME 


INSTRUCTIONS INCLUDED. To order send check 
or money order plus $1.50 shipping/handling to: 
„ American Software 

&&* Design & Distribution Co. 

PO. Box 246 Dept. G-6 
Cottage Grove, MN 55016 


CONVERSE WITH 
YOUR COMPUTER 


АТ LAST! A FULL IMPLEMENTATION of the original ELIZA pro- 
(ғат is now available to run on your Commodore 64! 


[I Created at MIT in 1966, ELIZA has become the world's most cele- 
brated artificial intelligence demonstration program. ELIZA is a non- 
directive psychotherapist who analyzes each statement as you type. 
itin and then responds with her own comment or question - and her 
remarks are often amazingly appropriate! 


Designed to run on alarge mainframe, ELIZA has never before been 
available to personal computer users except in greatly stripped 
|down versions lacking the sophistication which made the original 
program so fascinating 


Now, our new Commodore 64 version possessing the FULL power 
and range of expression of the original is being offered at the intro- 
|ductory price of only $25. And if you want to find out how she does 
it (or teach her to do more) we will include the complete SOURCE. 
PROGRAM for only $20 additional. 
Order your copy of ELIZA today and you'll never again wonder how 
to respond when you hear someone say, "Okay, let's see what this 
computer of yours can actually do!" 
ELIZA IS AVAILABLE IN THE FOLLOWING FORMATS: 
(Please specify Disk or Cassette) 
1. Protected Version 
(Protected Version can be run but not listed or modified) 
2. Un-protected Commodore 64 BASIC Source Version 
(Source Version can be listed and modified as well as run) 
Both versions include a six page user manual. 
Please add $2.00 shipping and handling to all orders 
(California residents please add 6% sales tax) 


QEUIRICIAE. ІНТЕРНӘБНБЕ RESEARCH GROUP 
1 North La Jolla UE 
B Los Angeles, q 
Cum (213)656- 7368 (213) 654-2214 
MC, VISA and checks accepted 


“THE REUNION” 


(Brings the Commodore family together again) 
JUST RELEASED! VIC 20/C64 


“THE REUNION” simultaneously interfaces your * VIC. 
20 and *C/64 (including" Datasette, modem, etc.) to 
your disk drive and/or printer providing 2 computer 
Systems. Use either instantly. 

"Simply select "VIC 20" or "C-64" on "THE RE- 
UNION” and state of the art design permits instant 
operation of selected system with modem, expansion, 
eic. 


SAVE and LOAD VIC and C/64 programs on same disk 
or tape. Ends switching disk/tape and cables. 
"Simple two minute installation. Full year warranty. 
Model A-interfaces VIC 20/C-64/disk/printer. Model B- 
interfaces VIC 20/C-64 апа Datasette. 
Special introductory price - $29.95 ea. (U.S. 5) 
Please add $2.00 for shipping (Canadian: $4.00). 
Flórida resident 5% tax. Send check or money order 
to: HyTech 

P.O. Box 466 

Bay Pines, FL 33504 
“Reg. Т.М. of Commodore Bus. Mach. 
© HyTech. 


FREE GAME FOR 
YOUR COMMODORE 64 


That's right! If you'll help cover shipping costs, 
KIDware will send you a free game along with our 
latest program brochure. Тһе cassette-based 
game, FOUR-IN-A-ROW, lets 2 players compete 
at trying to line up four pieces on a playing grid. 
Its fun for the whole family! 


KIDware specializes in KID-oriented software 
(Cassettes and Disks) for the Commodore 64. We 
offer a wide range of fun, educational programs 
for kids 1 - 16 years of age, with emphasis in the 
younger years. Our prices are the lowest and 
our quality and service the best——-you get same 
day shipping on all orders! 


To receive your game tape and program brochure, 
send $1.50 (for shipping) to KIDware. [If you 
only want a brochure, simply write and ask. 


ШИ шате 
р.о. Бох 1664 


idabo falls, 
idaho 83401 


ATTENTION C-64 DISK USERS 
ORGANIZE NOW! 
WITH THE 
MASTER-DIRECTORY 
SUPPORT SYSTEM 


With MDSS you can organize your disk files onto 
1 master disk. Maintain sorted master-directories 
of your files categorized by business, education, 
recreation or any other category you choose. 
Print single or multiple copies of master- 


directory listings, disk jacket indexes or individual 
disk labels. MDSS can locate your "lost" disk files 
too! 


MDSS is fully menu driven and very user-friendly. 
Includes an easy to follow instruction manual 


Requires C-64 and 1540 or 1541 disk drive. Printer 
optional. 
Send check or money order for $16.95 to. 
SUNSHINE SOFTWARE 
P.O. BOX 831 


DEARBORN, MICHIGAN 48120 
MICHIGAN RESIDENTS ADD 4% SALES TAX 


PROTO-64 


The only prototyping board for 
the COMMODORE 647” 


* Plugs directly into the expansion port 


* 44 contacts - 22 per side 


+ .100 inch spacing pad per hole 


ORDER NOW 
INTRODUCTORY OFFER 


available in two sizes 
4.574" . $12.95 
6.5"x4.5" . . . $15.95 
ТМ is a trademark of Add $1.00 shipping 
Commodore Electronics Ltd. СО res. add 6% tax 
Boreas Products 
P.O. Box 16961 
Co. Springs, Co. 80935 


(303) 593-1274 


Dealer Inquiries Invited 


COMMODORE 64- 
DISKMIMIC 5" @ $49.95 


* Backs up virtually all existing disks for 
Commodore 64", including COPY PROTECTED 
versions. ALL AUTOMATICALLY. 

* Supports one/two 1541" Drives. 

* Don't be without back-up. 


TM 
DISKMIMIC © $24.95 
* Back-up your Commodore 64" programs 
with SAVE YOUR DRIVE disk formatter. 
* Hi-speed, Hi-buffer (190 Blocks). 
Drive. 


© Extends life of 15417 


e Single drive back-up. 
* Selects tracks or backs up entire disk. 


FAST • FAST • FAST 


SPECIAL PACKAGE 
Diskmimic" & Diskmimic 5” @ $64.95 


А.1.0. Corp. 
4020 Hempstead Turnpike 
Bethpage, New York 11714 
(516) 731-7100 
Diskmimic" & Diskmimic 5” is a trademark of 
A.I.D. Corporation 
Commodore 64" & 1541" is a trademark of 
Commodore Electronics Ltd. 
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“Commodore-ready”, 
... апа ready for you NOW! 


*Cardcorder" DC/1, Data Cassette Recorder/Player 


Introducing the "CARDCORDER", Model the standard cassette functions: 

DC/4, the Computer Cassette that is record... play . . . rewind . . . fast forward .. . 
“Commodore-ready,” designed for storage stop and eject . . . pause. A solid-state 

and retrieval of computer data efficiently, designed product of the finest components with 
economically; with consistent performance. Yet, auto-stop. 

this fine CARDCO product is priced lower than The "CARDCORDER" DC/4 carries a 90 day 


any similar product with special quality features. 
Includes standard.connector which is 
"Commodore-ready"; LED "save" indicator light All CARDCO products are available at your local 
which confirms data recording on to the tape; dealers. р ; idis i 
handles up 10120 minutes (60 minutes on each 

side) of any standard tape including existing 

pre-recorded commercial as well as personal 

data tapes intended for use with Commodore 

Personal Computers; ready to до... just plug it 

in and record efficiently. 

CARDGO's "CARDCORDER" COMPUTER 

CASSETTE is a quality data cassette recorder/ 

player in an attractive polystyrene case, with all 


warranty to original owners. 


cardco, inc. 


313 Маћемѕоп Wichita, Kansas 67214 (316) 267-6525 
“Тһе world's largest manufacturer of Commodore accessories." 


| Commodore" is a registered trademark of Commodore Business Systems, Inc. 


ommodore Software- 
The Best Game in Town. 


... Take on the world, toughen up your trigger finger and fire away... 


Commodore is the best computer best of Bally Midway arcade games. to defeat the Wizard and the Warriors, 
value in town...at home, at school Our Kickman, (which just received fighting your way through to the end. 
and at work... with our exciting, a coveted "Electronic Games" With the new Commodore "MAGIC 
easy to use, inexpensive VIC 20 and award for an arcade translation) VOICE”... It talks back to you too!! 
C64 computers. lets you steer the unicycle to catch You commandeer the fleet at sea with 
We're fast becoming the best game the falling objects, as they fall quicker our version of Seawolf, and become the 
in town when it comes to entertainment апа quicker!! master tactician as you battle "it out" 
for the whole family...and at afford- Gorf, Lazarian, and Omega Race with enemy fleet. 
able prices. give you the best in classic space Clowns and Blueprint round out 
THE BEST ARCADE IN TOWN action against the one-eyed leviathon, our arcade entertainment package to 
can be in your own home with our the droids or the evil Empire. keep your fingers nimble and your 
exciting, faithful reproductions of the In The Wizard of Wor you attempt mind in gear. 


C= commodore 


COMPUTERS 


First In Quality Software 


See your local dealer now... He's got the best game in town. .. just for you. 


Made with love’ by: 


<EIROMAG- 


Our доа! iS to preserve classic video дате magazines so that 
they аге по lost permanently: 


People interested in helping шїп апу capacity; 
please visit us at retromags-com: 


No profit is made from these scans, nor do we offer anything 
available from) the publishers themselves: 


Ifyou соте across anyone selling releases from 
this site) please donot support them and do let us know: 


Thank you! 


